Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ToFind As Date
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
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
End If
 
End Sub

Zitat:

Es wäre gut wenn der Bereich der aktiven Zelle im Sheet1 einggrenzt werden könnte, auf A3:Y38.

Sheets("Tabelle1").Columns("F:XFD").EntireColumn.Hidden = True
Sheets("Tabelle1").Rows("15:1048576").EntireRow.Hidden = True

EALA FREYA FRESENA