Guten Tag VBA Spezialisten/innen.
Es soll der letzte Tag des Monats + nächste Zelle, als Zeilennummer in MsgBox gezeigt werde.
Fakt ist: In Spalte B, in B11, steht z.B. 01.09.2020.
Nun suche ich die VBA Lösung, wie ich die Zeilennummer (Zahl) des letzten Tag des Monats aus der Spalte + nächste Zelle, angezeigt erhalte. Ideal wäre, wenn die Zeilennummer (Zahl) zum weiter einfügen im Zwischenspeicher vorhanden wäre, geht aber auch ohne.
Mein Versuch beinhaltet als Suchkriterium z.B. 30.09.2020. Der Monat kann aber wechseln, dann müsste ich des Suchkritium jedesmal im Code anpassen.
Mit der Bitte um Hilfe,
grüßt Dieter(Drummer)
Musterdatei anbei: https://www.herber.de/bbs/user/139984.xlsm
Mein bisheriger Code:

Sub Zeilennummer_Monatsletzter() Dim i As Integer Dim suchspalte As String suchspalte = "B" For i = 1 To ActiveSheet.UsedRange.Rows.Count If Range(suchspalte & i).Value = "30.09.2020" Then MsgBox "Letzer Tag im Monat steht in Zeile " & i + 1 Exit Sub End If Next MsgBox "Monatsletzer nicht gefunden" End Sub