Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MsgBox (ActiveCell.Value)
 
Dim ToFind As String
Dim Row As Integer
Dim Col As Integer
 
ToFind = ActiveCell.Value
 
Dim foundCell As Object
 
Set foundCell = Sheets("Tabelle2").Range("A1:Z2000").Find(What:=ToFind)
 
If Not foundCell Is Nothing Then
Row = foundCell.Row
Col = foundCell.Column
Sheets("Tabelle2").Activate
Sheets("Tabelle2").Cells(Row, Col).Select
Else
Exit Sub
End If
 
Set foundCell = Sheets("Tabelle3").Range("A1:Z2000").Find(What:=ToFind)
 
If Not foundCell Is Nothing Then
Row = foundCell.Row
Col = foundCell.Column
Sheets("Tabelle3").Activate
Sheets("Tabelle3").Cells(Row, Col).Select
Else
Exit Sub
End If
 
End Sub

EALA FREYA FRESENA