For each verlassen wenn Such3 leer
25.05.2020 16:59:11
Peter
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
Wenn es ein einzelnes Makro wäre, würde Exit Sub eingefügt werden.
Gruss
Peter