Bei Wechsel des Tabellenblattes gleiche Zelle akti
02.04.2019 12:44:56
thort
ich benötige einen Code für folgende Funktion: Wenn auf ein anderes Tabellenblatt gewechselt wird, soll auf diesem die gleiche Zelle aktiviert werden wie auf dem Ausgangs-Tabellenblatt. z.B.: ich befinde micht auf Tabelle1 in Zelle G7; ich wechsle auf Tabelle2 und es wird automatisch ebenfalls Zelle G7 aktiviert. Mein bisheriger Ansatz funtioniert nicht:
Option Explicit
Public a As Integer
Public b As Integer
Public Sub Workbook_SheetDeactivate(ByVal Sh As Object)
a = ActiveCell.Row
b = ActiveCell.Column
End Sub
Public Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(a, b).Activate
End Sub
Hat jemand einen eleganteren Lösungsansatz oder eine Korrektur des oben stehenden Codes inpetto?
Besten Dank im Voraus!