Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zum aufrunfenden Blatt zurück

Gruppe

Hyperlink

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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