Klick Zelle - gehe zu anderer Tabelle richtige Zelle

Frage: In Sheet1 habe ich in Spalte L Namen stehen. Klicke ich einen Namen an, soll zu Sheet2 in Spalte A in die entsprechende Zelle gesprungen werden. Wie geht das?

Hier noch eine Beispieldatei: Worksheet_SelectionChange - Klick - Zelle andere Tabelle...

Option Explicit
'-------------------------------------------------------------------------- 
' Module    : Sheet1 
' Procedure : Worksheet_SelectionChange 
' Author    : Case (Ralf Stolzenburg) 
' Date      : 15.10.2012 
' Purpose   : Klick Zelle - gehe zu anderer Tabelle richtige Zelle... 
'-------------------------------------------------------------------------- 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim varRow As Variant
    If Not Intersect(Target, Columns(12)) Is Nothing Then
        If Not Target.Count > 1 Then
            With ThisWorkbook.Worksheets("Sheet2")
                varRow = Application.Match(Target.Value, .Columns(1), 0)
                If Not IsError(varRow) Then _
                    Application.Goto .Cells(varRow, 1), True
            End With
        End If
    End If
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...