ich bin auf der Suche nach einer Möglichkeit, wie ich auf Tabellenblatt1 (zum Beispiel) einen Namen eingebe und dann durch Knopfdruck (evtl. Makro) an genau die Stelle in Tabellenblatt2 springen kann.
Vielleicht kann mir jemand helfen!?
Sub such()
Dim such As String
such = Sheets("Tabelle1").Range("A1").Value
Sheets("Tabelle2").Select
zeile = Range("A65536").End(xlUp).Rows
For i = 1 To zeile
If Cells(i, 1).Value = such Then
Cells(i, 1).Select
Exit Sub
End If
Next
MsgBox ("Nivht vorhanden!")
Sheets("Tabelle1").Select
Range("A1").Select
End Sub
Sub was_finden()
strSuch = Worksheets("Tabelle1").Range("A1")
Worksheets("Tabelle2").Activate
Columns("A:A").Find(What:=strSuch).Select
End Sub