✔ Mit Checkboxen die Liste einer ComboBox verändern

[Fr3dd1]

Ich hab mal den ganzen Code aus dem "originalem" Progi genommen

Private Sub Check3_Click()
If Check3.Value = 1 And Checkbox4.Value = 0 Then
prozzesor.Clear
End If

If Check3.Value = 0 And Checkbox4.Value = 1 Then
prozzesor.Clear
prozzesor.AddItem "Core 2 Duo E6300"
prozzesor.AddItem "Core 2 Duo E6400"
prozzesor.AddItem "Core 2 Duo E6600"
prozzesor.AddItem "Core 2 Duo E6700"
prozzesor.AddItem "Core 2 Extreme X6800EE"
prozzesor.AddItem "Pentium D 805"
prozzesor.AddItem "Pentium D 820"
prozzesor.AddItem "Pentium D 830"
prozzesor.AddItem "Pentium D 840"
prozzesor.AddItem "Pentium D 915"
prozzesor.AddItem "Pentium D 920"
prozzesor.AddItem "Pentium D 925"
prozzesor.AddItem "Pentium D 930"
prozzesor.AddItem "Pentium D 935"
prozzesor.AddItem "Pentium D 940"
prozzesor.AddItem "Pentium D 945"
prozzesor.AddItem "Pentium D 950"
prozzesor.AddItem "Pentium D 960"
End If

If Check3.Value = 1 And Checkbox4.Value = 1 Then
prozzesor.Clear
prozzesor.AddItem "Core 2 Duo E6300"
prozzesor.AddItem "Core 2 Duo E6400"
prozzesor.AddItem "Core 2 Duo E6600"
prozzesor.AddItem "Core 2 Duo E6700"
prozzesor.AddItem "Core 2 Extreme X6800EE"
prozzesor.AddItem "Pentium D 805"
prozzesor.AddItem "Pentium D 820"
prozzesor.AddItem "Pentium D 830"
prozzesor.AddItem "Pentium D 840"
prozzesor.AddItem "Pentium D 915"
prozzesor.AddItem "Pentium D 920"
prozzesor.AddItem "Pentium D 925"
prozzesor.AddItem "Pentium D 930"
prozzesor.AddItem "Pentium D 935"
prozzesor.AddItem "Pentium D 940"
prozzesor.AddItem "Pentium D 945"
prozzesor.AddItem "Pentium D 950"
prozzesor.AddItem "Pentium D 960"
End If

If Check3.Value = 0 And Checkbox4.Value = 0 Then
prozzesor.Clear
End If

End Sub

 

[D@nger]

Public Sub listeneintrag()
If Check3.Value = 1 And Checkbox4.Value = 0 Then
prozzesor.Clear
End If

If Check3.Value = 0 And Checkbox4.Value = 1 Then
prozzesor.Clear
prozzesor.AddItem "Core 2 Duo E6300"
prozzesor.AddItem "Core 2 Duo E6400"
prozzesor.AddItem "Core 2 Duo E6600"
prozzesor.AddItem "Core 2 Duo E6700"
prozzesor.AddItem "Core 2 Extreme X6800EE"
prozzesor.AddItem "Pentium D 805"
prozzesor.AddItem "Pentium D 820"
prozzesor.AddItem "Pentium D 830"
prozzesor.AddItem "Pentium D 840"
prozzesor.AddItem "Pentium D 915"
prozzesor.AddItem "Pentium D 920"
prozzesor.AddItem "Pentium D 925"
prozzesor.AddItem "Pentium D 930"
prozzesor.AddItem "Pentium D 935"
prozzesor.AddItem "Pentium D 940"
prozzesor.AddItem "Pentium D 945"
prozzesor.AddItem "Pentium D 950"
prozzesor.AddItem "Pentium D 960"
End If

If Check3.Value = 1 And Checkbox4.Value = 1 Then
prozzesor.Clear
prozzesor.AddItem "Core 2 Duo E6300"
prozzesor.AddItem "Core 2 Duo E6400"
prozzesor.AddItem "Core 2 Duo E6600"
prozzesor.AddItem "Core 2 Duo E6700"
prozzesor.AddItem "Core 2 Extreme X6800EE"
prozzesor.AddItem "Pentium D 805"
prozzesor.AddItem "Pentium D 820"
prozzesor.AddItem "Pentium D 830"
prozzesor.AddItem "Pentium D 840"
prozzesor.AddItem "Pentium D 915"
prozzesor.AddItem "Pentium D 920"
prozzesor.AddItem "Pentium D 925"
prozzesor.AddItem "Pentium D 930"
prozzesor.AddItem "Pentium D 935"
prozzesor.AddItem "Pentium D 940"
prozzesor.AddItem "Pentium D 945"
prozzesor.AddItem "Pentium D 950"
prozzesor.AddItem "Pentium D 960"
End If

If Check3.Value = 0 And Checkbox4.Value = 0 Then
prozzesor.Clear
End If
End Sub


Private Sub Check3_Click()
Call listeneintrag
End Sub

Private Sub Checkbox4_Click()
Call listeneintrag
End Sub

So klappt es bei mir ohne Probleme!

 

[Fr3dd1]

klappt bei mir nicht

 

[D@nger]

wie klappt bei dir nicht? Was soll das denn heißen? Das ist unmöglich...Schildere dein Problem mal bitte genauer!

 

[Fr3dd1]

Es geht einfach nicht man kann nichts auswählen wie soll ich das noch weiter erklären. man sieht die Liste will eins auswählen aber keine reaktion.

 

[D@nger]

Dann musst du eben nachsehen welcher Code das Problem verursacht (eigentlich keiner, aber man weiß ja nie).

 

[D@nger]

Vielleicht klickst du auch mit der rechten Maustaste ;-)

 

[Fr3dd1]

ich klicke nicht mit der rechten Maustaste^^
Ich werd mla looken ob irgendwas das blockiert.

 

[Fr3dd1]

ich hab den fehler gefunden, die Combo Box hatte bei locked true...

mfg Freddy

 

[D@nger]