ich Hab da ein Kleines Problem und zwar hab ich mehrere Comboboxen die sollten bei Starten des Projekts gefült werden mit einer klapt es aber sobald mehrere im spiel sind funktionier das nicht mehr.
Hier der Quellcode für zwei:
Private Sub Workbook_Open()
Dim wks1 As Worksheet
Dim s1 As Integer
Dim a1 As Integer
s1 = 1
Sheets("Menü").ComboBox1.Clear
For Each wks1 In Worksheets
If s1 >= 4 And s1 <= 10 Then
Sheets("Menü").ComboBox1.AddItem wks1.Name, a1
a1 = a1 + 1
End If
s1 = s1 + 1
Next wks1
End Sub
Private Sub Workbook2_Open()
Dim wks2 As Worksheet
Dim s2 As Integer
Dim a2 As Integer
s2 = 1
Sheets("Menü").ComboBox2.Clear
For Each wks2 In Worksheets
If s2 >= 12 And s2 <= 24 Or s2 >= 106 And s2 <= 108 Then
Sheets("Menü").ComboBox2.AddItem wks2.Name, a2
a2 = a2 + 1
End If
s2 = s2 + 1
Next wks2
End Sub
Sub ComboBox1_füllen()
End Sub
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Activate
End Sub
Sub ComboBox2_füllen()
End Sub
Private Sub ComboBox2_Change()
Sheets(ComboBox2.Value).Activate
End Sub
Kann mir da jemand weiter Helfen?
Gruß Olga