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