VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zum aufrunfenden Blatt zurück

Gruppe

Allgemein

Bereich

Hyperlink

Thema

Zum aufrunfenden Blatt zurück

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Hyperlink