For each verlassen wenn Such3 leer

Forumthread: For each verlassen wenn Such3 leer

25.05.2020 16:59:11

Peter

Hallo,
ich benötige eure Hilfe. Ich habe ein Makro mit mehreren Suchschritte. Einen Ausschnitt aus dem Makro siehe unten:


'funktioniert
'Anfang sucht 3. Konto beendet grösser/gleich Anfangdatum
For Each rng3_lfd In wksTB4.Range("B2:B" & Range("B65536").End(xlUp).Row)
If rng3_lfd = Such3_lfd Then
'MsgBox Sheets("Kontodaten").Cells(rng3_lfd.Row, 6)
'MsgBox Sheets("Kontodaten").Cells(rng3_lfd.Row, 8)
'MsgBox Sheets("Kontodaten").Cells(rng3_lfd.Row, 9)
Set KontoArtWert3_lfd = Sheets("Kontodaten").Cells(rng3_lfd.Row, 2)
Set KontoNrWert3_lfd = Sheets("Kontodaten").Cells(rng3_lfd.Row, 6)
Set KontoAnfDat3_lfd = Sheets("Kontodaten").Cells(rng3_lfd.Row, 8)
Set KontoEndDat3_lfd = Sheets("Kontodaten").Cells(rng3_lfd.Row, 9)
'''                    If Such3_lfd = KontoArtWert3_lfd And KontoAnfDat3_lfd >= CDate("01.01. _
2019") And KontoEndDat3_lfd > "" Then
'''                        MsgBox "innerhalb" & " " & rng3_lfd & " " & KontoNrWert3_lfd
'''                    End If
If Such3_lfd = KontoArtWert3_lfd And KontoAnfDat3_lfd >= Startdatum And  _
KontoEndDat3_lfd > "" Then
'MsgBox "Konto3 beendet" & " " & rng31_lfd & " " & KontoNrWert3_lfd
Worksheets("Worddaten").Range("D29").Value = KontoNrWert3_lfd
End If
End If
Next rng3_lfd
'Ende sucht 3. Konto beendet grösser/gleich Anfangdatum
'Ende Konto3 laufend und beendet

Was muss ich bitte machen, damit das Suchen beendet wird, wenn Such3_lfd leer ist?
Wenn es ein einzelnes Makro wäre, würde Exit Sub eingefügt werden.
Gruss
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender