Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

For- Schleife Werte speichern

For- Schleife Werte speichern
03.09.2020 09:56:03
Michel
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

    2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: For- Schleife Werte speichern
    03.09.2020 10:00:15
    peterk
    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
    

    AW: For- Schleife Werte speichern
    03.09.2020 10:17:21
    Michel
    Hi,
    funktioniert, wie ich es wollte, vielen Dank.
    VG
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige