ich habe folgendes Problem:
In Tabelle 1 steht z.B. in A1 "Hans Peter".
ich möchte, dass wenn ich auf Hans Peter klicke, zu der "Hans Peter"-Zelle in Tabelle 2 die irgendwo in B:B steht springen.
Geht das?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim C As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then 'Wirkungsbereich nur in Spalte A
Set C = Tabelle2.Range("B:B").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
Application.Goto C
Else
MsgBox "Nix gefunden"
End If
Cancel = True
End If
End Sub
VG, Boris
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim R As Range, T As String
Cancel = Target.Address(0, 0, xlA1) = "A1"
If Not Cancel Then Exit Sub
T = Target.Text
Set R = Worksheets("Tabelle2").Columns(2)
With Application
If .CountIf(R, T) Then .Goto R.Cells(.Match(T, R, 0))
End With
Set R = Nothing
End Sub
Gruß Gerd