Über Click_Button Wert einer markierten Zelle in einem anderen Tabellenblatt finden

[Nietzsche]

Hallo,
nochmal ein anliegen.
Ich möchte mit VBA einen Wert einer markierten Zelle in einem anderen Arbeitsblatt finden und auf diese Zelle springen.
Also erst die Zelle mit dem Suchwert im einen Arbeitsblatt anklicken, den Click_Button betätigen und als Ergebnis will ich zu der Zelle in einem anderen Arbeitsblatt springen.
Hat jemand hier einen grundlegenden Vorschlag?

Danke im Voraus.

[Elex]

Hallo

hier mal zwei Varianten.

Code:

'Im Modul Tabelle1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Sheets("Tabelle2").UsedRange
    Set c = .Find(Target, LookIn:=xlValues)
    If Not c Is Nothing Then
         Application.Goto Reference:=c, scroll:=True
    End If
End With
End Sub

Private Sub CommandButton1_Click()
With Sheets("Tabelle2").UsedRange
    Set c = .Find(ActiveCell.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
         Application.Goto Reference:=c, scroll:=True
    End If
End With
End Sub

Gruß Elex

[Nietzsche]

Hallo Elex,

die zweite Variante läuf sehr gut.
Hab nur den Tabellenblattnamen geändert und jetzt läufts.

Vielen Dank für deine Hilfe.