Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Über Click_Button Wert einer markierten Zelle in einem anderen Tabellenblatt finden
Normale Version: Über Click_Button Wert einer markierten Zelle in einem anderen Tabellenblatt finden
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Nietzsche

25.05.2018, 14:36
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

25.05.2018, 16:11
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

29.05.2018, 09:39
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.
Clever-Excel-Forum > Office-Anwendungen > Excel > Über Click_Button Wert einer markierten Zelle in einem anderen Tabellenblatt finden