ich möchte beim Wechseln von einem Arbeitsblatt in ein anderes Arbeitsblatt automatisch auf die selbe Zelle springen wie im aktiven Arbeitsblatt.
Vielleicht hat dazu jemand eine Idee.
Vielen Dank im Voraus!
Dim z As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If z <> "" Then Range(z).Activate
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
z = Target.Address
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range(shtRng).Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
shtRng = Target.Address
End Sub
Gruß