jetzt möchte ich aber das die gefunden Zelle immer am obersten Rand angezeigt wird , was muss ich noch hinzufügen?
Danke und Gruss Toby
PS: das ist mein Code zum das Feld A zusuchen
Dim z
For z = 1 To (ActiveSheet.UsedRange.Rows.Count)
If ActiveCell = "A" Then
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If