Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Combobox

Combobox
19.08.2004 07:33:03
Olga
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox
19.08.2004 08:04:43
JensD
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 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 = 106 And s2 Sheets("Menü").ComboBox2.AddItem wks2.Name, a2
a2 = a2 + 1
End If
s2 = s2 + 1
Next wks2
End Sub
Gruß Jens
Anzeige
AW: Combobox
19.08.2004 08:06:21
Olga
Hi Jens,
vielen Dank das klingt sehr gut
Gruß Olga

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige