Combobox in abhängigkeit einer anderen befüllen
Hallo
ich habe 2 comboboxen die combobox2 soll in abhängigkeit der Combobox1 befüllt werden.wenn der Wert in zelle b13 in der combobox ausgewählt wird soll die combobox2 nur die werte von c13-c17
wenn der wert b18 in combobox ausgewählt wird soll cbo2 wert c18-c24 anzeigen
hab mal hier was probiert geht aber nicht
was mache ich falsch
Private Sub ComboBox1_Change()
If Worksheets("Server").ComboBox1 = "b13" Then
Worksheets("Server").ComboBox2.Clear
Worksheets("Server").ComboBox2.AddItem "c13"
Worksheets("Server").ComboBox2.AddItem "C14"
Worksheets("Server").ComboBox2.AddItem "c15"
Worksheets("Server").ComboBox2.AddItem "C16"
Worksheets("Server").ComboBox2.AddItem "C17"
ElseIf Worksheets("Server").ComboBox1 = "b18" Then
Worksheets("Server").ComboBox2.Clear
Worksheets("Server").ComboBox2.AddItem "c18"
Worksheets("Server").ComboBox2.AddItem "C19"
Worksheets("Server").ComboBox2.AddItem "c20"
Worksheets("Server").ComboBox2.AddItem "C21"
Worksheets("Server").ComboBox2.AddItem "c22"
Worksheets("Server").ComboBox2.AddItem "C23"
Worksheets("Server").ComboBox2.AddItem "c24"
ElseIf ComboBox1 = "b25" Then
Worksheets("Server").ComboBox2.Clear
Worksheets("Server").ComboBox2.AddItem "c25"
'ElseIf ....
End If
End Sub
Danke erstmal
ich habe 2 comboboxen die combobox2 soll in abhängigkeit der Combobox1 befüllt werden.wenn der Wert in zelle b13 in der combobox ausgewählt wird soll die combobox2 nur die werte von c13-c17
wenn der wert b18 in combobox ausgewählt wird soll cbo2 wert c18-c24 anzeigen
hab mal hier was probiert geht aber nicht
was mache ich falsch
Private Sub ComboBox1_Change()
If Worksheets("Server").ComboBox1 = "b13" Then
Worksheets("Server").ComboBox2.Clear
Worksheets("Server").ComboBox2.AddItem "c13"
Worksheets("Server").ComboBox2.AddItem "C14"
Worksheets("Server").ComboBox2.AddItem "c15"
Worksheets("Server").ComboBox2.AddItem "C16"
Worksheets("Server").ComboBox2.AddItem "C17"
ElseIf Worksheets("Server").ComboBox1 = "b18" Then
Worksheets("Server").ComboBox2.Clear
Worksheets("Server").ComboBox2.AddItem "c18"
Worksheets("Server").ComboBox2.AddItem "C19"
Worksheets("Server").ComboBox2.AddItem "c20"
Worksheets("Server").ComboBox2.AddItem "C21"
Worksheets("Server").ComboBox2.AddItem "c22"
Worksheets("Server").ComboBox2.AddItem "C23"
Worksheets("Server").ComboBox2.AddItem "c24"
ElseIf ComboBox1 = "b25" Then
Worksheets("Server").ComboBox2.Clear
Worksheets("Server").ComboBox2.AddItem "c25"
'ElseIf ....
End If
End Sub
Danke erstmal
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 116137
Url: https://administrator.de/contentid/116137
Ausgedruckt am: 08.11.2024 um 11:11 Uhr
7 Kommentare
Neuester Kommentar
Hallo tommhii,
Das hier ist schon mal falsch
Wenn Du Textvergleich machst, dann verwende den Like-Operator. Im Gegensatz zu "=" unterscheidet das Like nicht zwischen Groß- und Kleinschreibung.
Vorausgesetzt die ComboBox1 ist schon initialisiert, dann sollte das hier funktionieren:
Gruß Dieter
Das hier ist schon mal falsch
ElseIf ComboBox1 = "b25" Then
Wenn Du Textvergleich machst, dann verwende den Like-Operator. Im Gegensatz zu "=" unterscheidet das Like nicht zwischen Groß- und Kleinschreibung.
Vorausgesetzt die ComboBox1 ist schon initialisiert, dann sollte das hier funktionieren:
Private Sub ComboBox1_Change()
With Worksheets("Server")
If .ComboBox1 Like "b13" Then
Call InitCombBox2(13, 17)
ElseIf .ComboBox1 Like "b18" Then
Call InitCombBox2(18, 24)
ElseIf .ComboBox1 Like "b25" Then
Call InitCombBox2(25, 30)
'ElseIf ....
End If
End With
End Sub
Private Sub InitCombBox2(ByVal Von As Integer, ByVal Bis As Integer)
Dim i As Integer
With Worksheets("Server")
.ComboBox2.Clear
For i = Von To Bis
.ComboBox2.AddItem "c" & i
Next
.ComboBox2.Text = "c" & Von
End With
End Sub
Gruß Dieter
Hallo tommhii,
so geht's:
Bedingung nicht erfüllt = False
Bedingung erfüllt = True
Gruß Dieter
so geht's:
CommButton.Enabled = False
CommButton.Enabled = True
Bedingung nicht erfüllt = False
Bedingung erfüllt = True
Gruß Dieter
Hallo tommhii ,
Sorry,aber ich kenne Deinen Code nicht.
Definiere im Eigenschaftsfenster von CommandButton -> "Enabled = False"
D.h. der CommandButton wird deaktiviert angezeigt.
Prüfe Deine TextBoxen auf gültigen Ihnalt und setze Enabled auf True, z.B. so:
Gruß Dieter
Sorry,aber ich kenne Deinen Code nicht.
Definiere im Eigenschaftsfenster von CommandButton -> "Enabled = False"
D.h. der CommandButton wird deaktiviert angezeigt.
Prüfe Deine TextBoxen auf gültigen Ihnalt und setze Enabled auf True, z.B. so:
If TextBox1.Text <> "" And TextBox2.Text <> "" And _
TextBox3.Text <> "" And TextBox4.Text <> "" And _
TextBox5.Text <> "" And TextBox6.Text <> "" Then CommandButton.Enabled = True
Gruß Dieter