Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schleife zum Auslesen mehrer Lastfälle
zurück: Such-Skript mit mehreren Optionen weiter: Datumsvergleich Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
leichtbeton
Blutiger Anfänger


Verfasst am:
01. Okt 2010, 12:16
Rufname:

Schleife zum Auslesen mehrer Lastfälle - Schleife zum Auslesen mehrer Lastfälle

Nach oben
       Version: Office 2007

Hallo Zusammen,

mit folgendem Code möchte ich mehrere Lastfälle aus einem Progr. auslesen.:
Code:

Sub GetNSFAll()

Dim RSPos As RSTAB6.Structure
Dim RSRes As RSTAB6.IrsLoadResults
Dim Count, i As Integer
Dim intLC As Long
Dim RSLoads As RSTAB6.IrsLoads
Dim RSLoad As RSTAB6.IrsLoadCase


Set RSPos = GetObject(, "RSTAB6.Structure")
RSPos.rsGetApplication.rsLockLicence

On Error GoTo e

Set RSRes = RSPos.rsGetResults.rsGetLoadResults(LT_CASE, common.GetSelectedLoad)

Tabelle7.Range("C23:O28").ClearContents


Count = RSRes.rsGetNSFAllCount
If Count > 0 Then
    ReDim arr(Count - 1) As RS_RESULTS_NSF
    Count = RSRes.rsGetNSFAllArr(Count, arr(0))
    For i = 0 To Count - 1
       
       
            If arr(i).Values(NSF_PX) = 0 Then List302.Cells(i + 2, 3) = arr(i).Values(NSF_PX) / 1000
            If arr(i).Values(NSF_PX) <> 0 Then Tabelle7.Cells(28, 3) = arr(i).Values(NSF_PX) / 1000    'horizontale Lagerkräfte
       
    Next
End If



e:
If Err.Number Then MsgBox Err.Description, , Err.Source

Set RSRes = Nothing
RSPos.rsGetApplication.rsUnlockLicence
Set RSPos = Nothing
End Sub



Unter dem Befehl common.GetSelectedLoad wird jeweils immer nur ein Lastfall ausgelesen. Ich möchte aber gerne alle Lastfälle auslesen.
Meine Idee war das mit intLC auszulesen.
Code:

Set RSRes = RSPos.rsGetResults.rsGetLoadResults(LT_CASE, intLC + 1)

List302.Range("A2:I3000").ClearContents

'Set RSLoad = RSLoads.rsGetLoadCase(intLC, AT_INDEX)
   
For intLC = 0 To RSLoads.rsGetLoadCaseCount() - 1    'Schleife über alle Lastfälle


Count = RSRes.rsGetNSFAllCount
If Count > 0 Then
    ReDim arr(Count - 1) As RS_RESULTS_NSF
    Count = RSRes.rsGetNSFAllArr(Count, arr(0))
    For i = 0 To Count - 1
       
        'Tabelle7.Cells(i + 28, 3) = arr(i).Values(NSF_PX) / 1000    'horizontal
       
    Next
End If


Next intLC


Also den Code durch intLC austauschen. Dort kommt aber immer eine Fehlermeldung habt ihr einen Rat parat?

Besten Dank im vorraus
leichtbeton
leichtbeton
Blutiger Anfänger


Verfasst am:
03. Okt 2010, 19:18
Rufname:


AW: Schleife zum Auslesen mehrer Lastfälle - AW: Schleife zum Auslesen mehrer Lastfälle

Nach oben
       Version: Office 2007

und Schubs,

hat keiner Ne Antwort parat?
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Verknüpfung mehrer Tabellen zwecks Datenerhebung 1 ElefantSau 590 20. Feb 2007, 21:23
Sebastian Schulz Verknüpfung mehrer Tabellen zwecks Datenerhebung
Keine neuen Beiträge Excel Formeln: Zellen auslesen 7 Danco 826 14. Nov 2006, 14:29
dtabken Zellen auslesen
Keine neuen Beiträge Excel Formeln: Am letzten Arbeitstag des Monats eine Zelle auslesen 6 godzilla0012 986 13. Nov 2006, 22:52
Günni Am letzten Arbeitstag des Monats eine Zelle auslesen
Keine neuen Beiträge Excel Formeln: Wert auslesen + 1 addieren und in Zelle schreiben 3 DerEchteThomas 16438 25. Sep 2006, 11:51
DerEchteThomas Wert auslesen + 1 addieren und in Zelle schreiben
Keine neuen Beiträge Excel Formeln: Namen des Tabellenblattes auslesen? 3 Sobo 1612 29. Aug 2006, 15:38
Gast Namen des Tabellenblattes auslesen?
Keine neuen Beiträge Excel Formeln: Anzahl2 soll unendlich viele Zeilen auslesen 4 DeeKay 3275 24. Aug 2006, 12:57
Cabation Anzahl2 soll unendlich viele Zeilen auslesen
Keine neuen Beiträge Excel Formeln: Monat auslesen / Quartalsauswertung 2 BerndMueller 2633 10. Apr 2006, 07:11
< Peter > Monat auslesen / Quartalsauswertung
Keine neuen Beiträge Excel Formeln: Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren 2 JensK 1222 22. März 2006, 22:52
JensK Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren
Keine neuen Beiträge Excel Formeln: Format Inhalt auslesen 7 shanghai357 5567 10. Feb 2006, 17:24
shanghai357 Format Inhalt auslesen
Keine neuen Beiträge Excel Formeln: Zelle von links und rechts auslesen bis zum Leerzeichen 3 Sascha David 10506 17. Jan 2006, 14:31
Gast Zelle von links und rechts auslesen bis zum Leerzeichen
Keine neuen Beiträge Excel Formeln: Tabellenzeile indizieren und auslesen 4 Zander-Carve 2128 28. Nov 2005, 11:07
Zander-Carve Tabellenzeile indizieren und auslesen
Keine neuen Beiträge Excel Formeln: Werte auslesen und getrennt darstellen (oder so) ?? 9 Gast 898 19. Aug 2005, 18:00
rainberg Werte auslesen und getrennt darstellen (oder so) ??
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum