Ich möchte in Spalte A:A einen Wert suchen der in der Variable "Zahl" steht.
Ist der Wert gefunden soll die gefundene Zelle mit "ActiveCell.Select" aktiviert werden
Wird der Wert nicht gefunden soll die erste leere Stelle gefunden werden.
Sub n()
Dim zahl As Long
Dim i As Long
zahl = 3 'deine gesuchte Zahl
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = zahl Then
Cells(i, 1).Select
Exit Sub
Else
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select 'letzte leere zelle
End If
Next
End Sub
Gruss hary
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