ich möchte, wenn z.B. in Tabelle 1 Zelle B10 aktiv ist,
beim umschalten auf Tabelle 2 oder 3 die Zelle B10 der jeweiligen Tabelle
angesprungen wird.
Kann mir jemand helfen ? Danke im Voraus
Gruß Peter
Option Explicit
Dim Auswahl As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableEvents = False
Range(Auswahl).Select
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Auswahl = Selection.Address
End Sub
gruß Daniel