Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

For- Schleife Werte speichern

• For- Schleife Werte speichern von Michel vom 03.09.2020 09:56:03
• AW: For- Schleife Werte speichern - von peterk am 03.09.2020 10:00:15
  • AW: For- Schleife Werte speichern - von Michel am 03.09.2020 10:17:21

Guten Morgen,

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

Sub PrüfungVertragsende()
Dim rws As Integer, i As Integer
Dim myString as string

myString = ""
rws = Cells(Rows.Count, 12).End(xlUp).Row

  For i = 2 To rws
      If Date >= Cells(i, 12) Then 
         If mystring="" then 
            mystring = i
         else 
            mystring = mystring & "," & i
         end if
         MsgBox i             
      Else:
      End If
  Next
  mysgbox mystring

End Sub

Beiträge aus dem Excel-Forum zum Thema "For- Schleife Werte speichern"