Microsoft Excel

Herbers Excel/VBA-Archiv

Combobox

Betrifft: Combobox von: Olga
Geschrieben am: 19.08.2004 13:41:13

Hallo Leute,
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 <= 11 Then
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 <= 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


Es kommt immer ein Laufzeitfehler.
Kann mir da jemand helfen?
Gruß Olga
  


Betrifft: AW: Combobox von: Olga
Geschrieben am: 19.08.2004 14:21:03

Hat sich esrledigt


 

Beiträge aus den Excel-Beispielen zum Thema "Combobox"