Bitte um Hilfe, wie kann ich das machen?
Ich möchte in Spalte H von einer markierten Zeile aus nach unten prüfen, wo der nächste 1 (Wert in Zelle) folgt und das augeben.
Danke im voraus für Eure Hilfe
Gruß
Leitz G.
Sub ttt()
Dim rFind As Range
Set rFind = Range(ActiveCell, Cells(Rows.Count, 8)).Find _
(what:=1, after:=ActiveCell, lookat:=xlWhole)
If Not rFind Is Nothing Then MsgBox rFind.Address
End Sub