Combobox
19.08.2004 13:41:13
Olga
ich hab da ein Kleines Problem
ich habe Mehrere Comboboxen auf in einer Tabelle diese Funktionieren jedoch nicht richtig
hier ist der Code:
Private Sub Workbook_Open()
Call Fill_Box1
Call Fill_Box2
Call Fill_Box3
Call Fill_Box4
Call Fill_Box5
End Sub
'Regionen
Sub Fill_Box1()
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 Sheets("Menü").ComboBox1.AddItem wks1.Name, a1
a1 = a1 + 1
End If
s1 = s1 + 1
Next wks1
End Sub
'Verkäufer
Sub Fill_Box2()
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 = 106 And s2 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
Es kommt immer ein Laufzeitfehler.
Kann mir da jemand helfen?
Gruß Olga
Anzeige