Office: For Schleife mit If bedingung

Yamuto · 14. September 2010

Hallo mitteinander,

ich habe folgendes Problem ich möchte in einer If klausel wenn diese eintritt das er den befehl next i ausführt aber nun sagt er mir immer das er einen Fehler (next ohne For).

Nun ist meine Frage Gibt es einen Befehl das er den Nächsten inhalt des Array ansteuert und den Folgenden Programmiercode ausläst ? Mit GoTo etc kann man eh nicht arbeiten zudem ist GoTo *schw****

Gruß und Danke für eure Hilfe

Yamuto / Daniel

Hier ist mal ein Quellcode ausschnitt der es beinhaltet: Code:

For i = 1 To UBound(arr_worksheet)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Baustelle hier muss die Fahrzeugscluster unterscheidung rein
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim fahrzeug_Gefunden As Boolean
fahrzeug_Gefunden = False

' C Fahrzeuge auswertung
If cluster = 1 Then
For k = 1 To UBound(arr_Fahrzeuge)
If arr_Fahrzeuge(k, 1) = arr_worksheet(i, 1) Then fahrzeug_Gefunden = True
Next k
End If

'Fahrzeuge auswertung
If cluster = 2 Then
For k = 1 To UBound(arr_Fahrzeuge)
If arr_Fahrzeuge(k, 2) = arr_worksheet(i, 1) Then fahrzeug_Gefunden = True
Next k
End If

'C und D auswertung
If cluster = 3 Then fahrzeug_Gefunden = True

'Wenn fahrzeug nicht gefunden dann in die Nächste Zeile
If fahrzeug_Gefunden = False Then
Next i
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nach dem If kommt eine Auswertung... aber diese Funktioniert *wink.gif*

:)

Yamuto · 15. September 2010

ok erledigt.. scheinbar ist VBA nicht in der lage sowas zu berücksichtigen. Mann muss leider mit einen GoTo arbeiten...

Björn_vbxls · 15. September 2010

Hallo Yamuto,

es gäbe noch ne Möglichkeit, indem du deine Auswertung in den If- Teil schreibst...

Code:

'Wenn fahrzeug nicht gefunden dann in die Nächste Zeile
If NOT fahrzeug_Gefunden = False Then
'oder fahrzeug_Gefunden = TRUE Then

DEINE ABFRAGE
End If

Next i

MfG

Björn
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fr0sch · 15. Oktober 2013

Hallo,
ich hoffe, hier schaut nochmal jemand vorbei.

Ich habe jetzt schon mehrere Varianten mit der For-Next-Schleife versucht, aber entweder fehlt das For oder das End if. Und das mit dem GoTo versteh ich nicht, zumal ich keine gescheiten Beispiel finden konnte.

Mein Code ist ein bisschen zu lang, um ihn hier darzustellen, deswegen nur ganz kurz und primitiv:

If Vorlage=1 then
Wordvorlage öffnen
Export nach Word
diverse Reports schließen
elseif Vorlage=2 then
...
End if

Insgesamt habe ich 4 Vorlagen. Bisher hatte ich das ganze so gemacht, dass immer nur ein Bericht exportiert werden konnte und nun habe ich z.B. 3 Berichte offen und möchte jetzt mithilfe einer Schleife diese Seiten einzeln in jeweils ein neues Worddokument exportieren. Die Schleife kann aber nur durchlaufen, wenn der Bericht nach dem Export nicht geschlossen wird. Also müsste da theoretisch das Next hin, aber das funktioniert nicht.

Meine Fragen also: Wo packe ich "For i=1 to n" und das "next" am sinnvollsten hin? Und wie funktioniert das mit dem "Goto"?

n habe ich schon ganz am Anfang für die jeweiligen Berichtsversionen definiert.

Gruß und Danke im Vorraus!
fr0sch

Office: For Schleife mit If bedingung

For Schleife mit If bedingung

For Schleife mit If bedingung

For Schleife mit If bedingung

For Schleife mit If bedingung - Similar Threads - For Schleife bedingung

For Next Schleife

Access For next Schleife

For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

For-Next-Schleife für Textfeldübertragung

For Schleife nicht initialisiert

Glücksrad mit VBA und For-Schleifen

VBA: For Each Schleife mit mehreren Bedingungen