Microsoft Excel

Herbers Excel/VBA-Archiv

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

For- Schleife Werte speichern

Betrifft: For- Schleife Werte speichern von: Michel
Geschrieben am: 03.09.2020 09:56:03

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



  • Freue mich auf Anregungen!

    VG Michel

    Betrifft: AW: For- Schleife Werte speichern
    von: peterk
    Geschrieben am: 03.09.2020 10:00:15

    Hallo
    
    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
    
    
    


    Betrifft: AW: For- Schleife Werte speichern
    von: Michel
    Geschrieben am: 03.09.2020 10:17:21

    Hi,
    funktioniert, wie ich es wollte, vielen Dank.
    VG

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