Combobox mit Arbeitsblätter Namen befüllen
MG_Learning
ich möchte mir gern ein paar Einträge ersparen und per Combobox selektierbar machen!
Wie kann ich per VBA eine Combobox mit den Namen der Arbeitsblätter meiner Exceldatei befüllen?
Ich habe vier Stück in der Datei, der erste Blattname soll nicht erfasst werden, nur die Namen der letzten
drei?
Erster Versuch (steht VBA Übersicht Tabelle1):
Private Sub ComboArtikel_Change()
Dim i As Integer
ComboArtikel.Clear
For i = 1 To Worksheets.Count
ComboArtikel.AddItem Worksheets(i).Name
Next
ComboArtikel.ListIndex = 0
End Sub
Danke
M.