Makro Navigation ergänzen
11.12.2022 00:06:06
Luna
wie immer habe ich mir mit Hilfe aus dem Internet, ich glaube es war in YouTube, einen Code zusammengebastelt der mir eine Navigationsleiste (UF) mit allen Tabellenblättern anzeigt. Wenn ich dann einen Doppelklick auf den ausgewählten Eintrag mache springe ich in das ausgewählte Tabellenblatt.
Hier mal der Code:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
lbSheets.AddItem ws.Name
If ws.Name = ActiveSheet.Name Then lbSheets.ListIndex = lbSheets.ListCount - 1
Next ws
'UserForm positionieren
Me.Top = 240
Me.Left = 240
End Sub
Die ausgeblendeten Hilfsdateien würde ich gerne nicht in der Navigation (UF) anzeigen lassen.
Also wenn sich jemand die Zeit nehmen möchte und da eine Lösung hat wäre ich wie immer sehr dankbar.
Schönes Wochenende
Luna
Anzeige