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.