heute schon meine Zweite Frage :-( die ich selbst nicht gelöst bekomme.
Ich habe eine Combobox, allerdings ist diese beim öffnen der Datei immer leer. Warum werden die verschiedenen Auswahlmöglichkeiten nicht angezeigt?
Private Sub ComboBox4_Change()
'Importiert die Daten aus der Auftragsstatistik Stützpunkte
Dim arr As Variant
arr = Array("auswählen", "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", " _
August", "September", "Oktober", "November", "Dezember I", "Dezember II")
ComboBox4.List = arr
Select Case ComboBox4.Value
Case "Januar"
Call ImportJanuar
Case "Februar"
Call ImportFebruar
Case "März"
Call ImportMärz
Case "April"
Call ImportApril
Case "Mai"
Call ImportMai
Case "Juni"
Call ImportJuni
Case "Juli"
Call ImportJuli
Case "August"
Call ImportAugust
Case "September"
Call ImportSeptember
Case "Oktober"
Call ImportOktober
Case "November"
Call ImportNovember
Case "Dezember I"
Call ImportDezember1
Case "Dezember II"
Call ImportDezember2
End Select
ComboBox4 = "auswählen"
Sheets("Verwaltung").Select
End Sub
Viele Grüßekai