AW: VBA, Mehrere ComboBoxen mit gleichem Inhalt
05.12.2019 18:35:28
Oberschlumpf
Hi Wolfgang,
anhand deiner Vorgaben ist auch das hier eine Möglichkeit:
Private Sub UserForm_Initialize()
Dim liVal As Integer
'füllt die ComboBoxen1,3+7 mit allen Monatsnamen
For liVal = 1 To 12
ComboBox1.AddItem Format("01." & liVal & "." & Year(Date), "MMMM")
ComboBox3.AddItem Format("01." & liVal & "." & Year(Date), "MMMM")
ComboBox7.AddItem Format("01." & liVal & "." & Year(Date), "MMMM")
Next
'füllt die ComboBoxen2,4+8 mit den Zahlen 2018 bis 2030
For liVal = 2018 To 2030
ComboBox2.AddItem liVal
ComboBox4.AddItem liVal
ComboBox8.AddItem liVal
Next
End Sub
Anstelle von ComboBox1 usw musst du den richtigen Namen der entsprechenden ComboBox eintragen.
Hilfts?
Ciao
Thorsten