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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen