Gruppe
Allgemein
Problem
Die Hyplinks in den Zellen A1 der Blätter Tabelle1 und Tabelle2 führen zu Tabelle3. Die Zurück-Schaltfläche in Tabelle3 soll in das jeweilige aufrufende Blatt zurückführen.
ClassModule: Tabelle1
Private Sub Worksheet_Activate()
ThisWorkbook.Worksheets("Dummy").Range("A1").Value = Me.Name
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Worksheets("Dummy").Range("B1").Value = Target.Address
End Sub
ClassModule: Tabelle2
Private Sub Worksheet_Activate()
ThisWorkbook.Worksheets("Dummy").Range("A1").Value = Me.Name
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Worksheets("Dummy").Range("B1").Value = Target.Address
End Sub
StandardModule: Modul1
Sub GoBack()
With ThisWorkbook.Worksheets("Dummy")
Worksheets(.Range("A1").Value).Select
Range(.Range("B1").Value).Select
End With
End Sub
Sub Ausblenden()
Worksheets("Dummy").Visible = xlVeryHidden
End Sub