Schlagwort: ListBox

Mit Hilfe eines Listenfelds (ListBox) kann man sehr einfach eine Navigation innerhalb einer Excel-Arbeitsmappe erstellen.

Die Navigation soll folgende Funktionen beinhalten

• Bei jedem Öffnen der Arbeitsmappe sol sich die Navigation dynamisch füllen, je nach Anzahl und Benennung der einzelnen Tabs innerhalb der Arbeitsmappe
• Ein Klick auf einen Eintrag setzt den Cursor in das ausgewählte Tabellenblatt.

ListBox in Tabelle einfügen

In unserem Beispiel soll die Navigation in die Tabelle 1 eingefügt werden.

Neben der ListBox könnt ihr gleich noch Buttons erstellen, die für die folgenden Aufgaben zuständig sind

• Befüllen der Navigations, falls der User dies manuell vornehmen möchte
• Löschen der Navigation

Der Code

Nachdem das Layout der Navigation in der Tabelle 1 erstellt wworden ist, gilt es den Code einzufügen.
Alle Elemente haben wir in die Tabelle 1 eingefügt, weshalb wir einen Teil des Codes auch dort reinschreiben werden.

Option Explicit

' Ruft das Makro UserForm_Initialize() auf
Sub navigation()
Call UserForm_Initialize
End Sub

' Befüllt die ListBox
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next sht
End Sub

' Setzt die Einträge in der ListBox als Hyperlink
Private Sub ListBox1_Click()
Sheets(ListBox1.ListIndex + 1).Activate
End Sub

' Löscht die Einträge im Navigationsfeld
Sub navigation_loeschen()
Sheets("Tabelle1").ListBox1.Clear
End Sub

Die Makros UserForm_Initialize und ListBox1_Click befüllen die ListBox und aktivieren die Verlinkung zu den Tabellenblättern. Lässt man das Makro ListBox1_Click weg, wird der Cursor bei einem Klick auf einen Eintrag nicht in das entsprechende Tabellenblatt gesetzt.

Das Makro navigation ruft das Makro UserForm_Initialize auf, das Makro benötigen wird, damit der Button in Tabelle 1 das Navigationsfeld befüllen kann. Private-Makros können hierfür nicht verwendet werden.

Module

In den Modulen definieren wir, dass

• Beim Öffnen der Arbeitsmappe der Navigationsbereich automatisch befüllt wird
• Beim Schließen der Arbeismappe die Einträge im Navigationsbereich gelöscht werden

Für das Befüllen beim Öffnen ist das Modul mod_AutoStart zuständig.
Der Code lautet:

Option Explicit

Sub Auto_Open()
'
' Makros starten automatisch, wenn die Excelmappe geöffnet wird
'

Call UserForm_Initialize

End Sub

Für das automatische Löschen der Einträge wird der Code in das Modul mod_AutoClose geschrieben.

Option Explicit

' Makros werden automatisch ausgeführt, wenn die Arbeitsmappe geschlossen wird
Sub auto_close()

Call navigation_loeschen

 End Sub

Das Ergebnis

Das Ergebnis sollte so ähnlich aussehen wie hier:

Die erstellten Buttons in Tabelle 1 verfügen noch über keine Funktion. Dafür müssen die Makros noch zugewiesen werden.