ComboBox Liste wiederholt sich ungewollt

Question

Hallo Leute,

bin wieder mal am tüfteln...mein aktuelles Problem: Ich habe eine Maske in der eine ComboBox drin ist. Die ComboBox enthält unsere 16 Bundesländer mit ihren jeweligen Abwasserkosten je m³. Soweit habe ich das selbst gemacht...wenn ich auf den DropDown Button der ComboBox drücke dann tauchen die Bundesländer auch auf...und wenn ich mir ein Bundesland aussuche dann wird auch der Preis z.B. Auswahl: Berlin.... 4.24...angezeigt....soweit geht alles....ABER: Wenn ich ein anderes Bundesland aussuchen möchte dann verdoppelt sich meine Liste nach Betätigung des DropDown Buttons meiner Combobox...das sollte nicht sein...bei erneuer Auswahl verdreifacht sich diese u.s.w...muss dann jedesmal meine Userform Maske neu starten um nur 16 Bundesländer angezeigt zu bekommen...hier mein Code:

Private Sub ComboBox1_Change()

Select Case ComboBox1.Value

Case "Niedersachsen"
ComboBox1.Value = 2.1 'EINGABE DER KOSTEN PRO KUBIKMETER WASSER JE BUNDESLAND
Case "Schleswig_Holstein"
ComboBox1.Value = 1
Case "Sachsen"
ComboBox1.Value = 1.2
Case "Hamburg"
ComboBox1.Value = 1.5
Case "Thüringen"
ComboBox1.Value = 1.8
Case "Bayern"
ComboBox1.Value = 1.25
Case "Bremen"
ComboBox1.Value = 2.5
Case "Baden_Württemberg"
ComboBox1.Value = 1.7
Case "Hessen"
ComboBox1.Value = 2.14
Case "Rheinland_Pfalz"
ComboBox1.Value = 2.3
Case "Nordrhein_Westfalen"
ComboBox1.Value = 1.68
Case "Sachsen_Anhalt"
ComboBox1.Value = 1.9
Case "Brandenburg"
ComboBox1.Value = 2.4
Case "Berlin"
ComboBox1.Value = 4.24
Case "Mecklenburg_Vorpommern"
ComboBox1.Value = 2.8
Case "Saarland"
ComboBox1.Value = 1.75

End Select


End Sub

Private Sub ComboBox1_DropButtonClick()
With ComboBox1

ComboBox1.AddItem ("Baden_Württemberg")
.AddItem ("Bayern")
.AddItem ("Berlin")
.AddItem ("Brandenburg")
.AddItem ("Bremen")
.AddItem ("Hamburg")
.AddItem ("Hessen")
.AddItem ("Mecklenburg_Vorpommern")
.AddItem ("Niedersachsen")
.AddItem ("Nordrhein_Westfalen")
.AddItem ("Rheinland_Pfalz")
.AddItem ("Saarland")
.AddItem ("Sachsen")
.AddItem ("Sachsen_Anhalt")
.AddItem ("Schleswig_Holstein")
.AddItem ("Thüringen")

End With

End Sub

Jemand eine Idee? ( Bestimmt hat "der Meister" eine :-) ) Gruß an Hajo.

Answer 1

Hallo Sina,

Du musst am Anfang des Makros mit dem Du die ComboBox füllst (bei Dir im Private Sub ComboBox1_DropButtonClick())


ComboBox1.Clearsetzen. Das bewirkt, dass die ComboBox komplett geleert wird, bevor diese wieder gefüllt wird.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hey Oliver,

ja...das klappt...ich bin ja auch selten doof :-) Vielen lieben Dank Oliver !

Answer 3

Hallo Sina,

gern geschehn, Danke auch für die Rückmeldung.

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]