AW: Liste der Tabellenblätter
29.03.2015 07:26:00
Christian
Hallo Michael,
setzte eine ComboBox aus "ActiveX-Steuerelemente" in das Tabellenblatt
Im VB-Editor dann folgenden Code eingeben:
Modul: "DieseArbeitsmappe"
Option Explicit
Private Sub Workbook_Open()
Dim objCntr As Object
Dim wks As Worksheet
Set objCntr = Worksheets("Inhaltsverzeichnis").ComboBox1
objCntr.Clear
For Each wks In ThisWorkbook.Worksheets
objCntr.AddItem wks.Name
Next
Set objCntr = Nothing
End Sub
Modul der Tabelle "Inhaltsverzeichnis":
Option Explicit
Private Sub ComboBox1_Change()
With Worksheets(ComboBox1.Value)
.Activate
.Cells(1, 1).Select
End With
End Sub
Private Sub Worksheet_Activate()
Me.ComboBox1.Value = Me.Name
End Sub
Hyperlinks brauchst du dafür nicht
Gruß
Christian