Daten in eine msoControlDropdown einlesen
18.04.2008 07:33:00
Josef
Mit folgenden Makros werden die Seiten der aktiven Arbeitsmappe (.xla) in eine msoControlDropdown eingelesen.
Ich möchte jedoch erreichen, dass die Seiten einer anderen Arbeitsmappe (.xls) beim Öffnen in diese Dropdown
eingelesen werden.
With CommandBars("SteuerungDB2").Controls(2)
Call BlattListe_DB2
.Width = 180
.ListRows = 50
.ListIndex = 1
.OnAction = "Alle_Blätter_DB2"
End With
Sub BlattListe_DB2()
Dim n As Byte
'Blattliste löschen
CommandBars("SteuerungDB2").Controls(2).Clear
'Blattliste neu einlesen
With CommandBars("SteuerungDB2").Controls(2)
For n = 1 To Worksheets.Count
.AddItem Sheets(n).Name
Next n
.ListIndex = 1
End With
End Sub
Wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef
Anzeige