Microsoft Excel

Herbers Excel/VBA-Archiv

Combobox

Betrifft: Combobox von: Olga
Geschrieben am: 19.08.2004 07:33:03

Hallo Leute,
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
  


Betrifft: AW: Combobox von: JensD
Geschrieben am: 19.08.2004 08:04:43

Hi

Es kann nur ein Workbook_Open geben in deine Projekt.
Wie wäre es so?

Private Sub Workbook_Open()
Call Fill_Box1
Call Fill_Box2
'usw
End Sub


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 <= 10 Then
Sheets("Menü").ComboBox1.AddItem wks1.Name, a1
a1 = a1 + 1
End If
s1 = s1 + 1
Next wks1
End Sub


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

Gruß Jens


  


Betrifft: AW: Combobox von: Olga
Geschrieben am: 19.08.2004 08:06:21

Hi Jens,
vielen Dank das klingt sehr gut
Gruß Olga


 

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