For- Schleife Werte speichern
03.09.2020 09:56:03
Michel
ich habe eine For-Schleife erstellt, die überprüfen soll, ob das heutige Datum größer ist, als die Daten in Spalte 12.
Immer wenn das der Fall ist, kommt eine MsgBox mit der Zeilennummer, in der die Bedingung zutrifft (die MsgBox kann am Ende auch weggelassen werden, habe ich aktuell nur zum Testen).
Nun soll mir VBA am Ende der Schleife eine MsgBox o.ä. zeigen, die alle Zeilennummern ausgibt, auf die die Bedingung aus der Schleife zugetroffen hat.
Hier der Code dazu:
Sub PrüfungVertragsende()
Dim rws As Integer, i As Integer
rws = Cells(Rows.Count, 12).End(xlUp).Row
For i = 2 To rws
If Date >= Cells(i, 12) Then
MsgBox i
Else:
End If
Next
Hier: z.B. eine MsgBox, die mir ausgibt, dass in den Zeilen x, y und z die Bedingung aus der _
Schleife zutrifft.
End Sub
Freue mich auf Anregungen!
VG Michel
Anzeige