Combobox, Inhalt löschen, neu Einlesen ?
14.07.2005 17:24:36
Harry
Ich möchte mit einer Combobox Werte einlesen, die ich vorher mit Autofilter ausgewählt habe (geht).
Lösche ich die Einträge der Combobox vorher mit Clear geht es nicht.
(Combobox.Value ist dann leer und a gibt mir dann 31 aus.
Was ist Falsch an meinem Beispiel:
Private Sub Combobox1_DropButtonClick()
Dim anzahl As Integer, x As Variant
ComboBox1.Clear
For anzahl = 1 To 30
If Not Rows(anzahl).Hidden Then
x = Sheets(3).Cells(anzahl, 1)
If x = "" Then Exit For
ComboBox1.AddItem (x)
End If
Next anzahl
End Sub
Private Sub Combobox1_Change()
a = Range(Cells(1, 1), Cells(30, 1)).Find(what:=ComboBox1.Value, lookat:=xlWhole).Row
TextBox1.Value = a
End Sub
a soll mir dann die gewähle Zeile anzeigen
lösche ich die Zeile "Combobox1.clear" dann geht es, aber bei nochmaligen
benutzen der Combobox habe ich alle Einträge doppelt.
Ich hoffe ihr könnt mir helfen.
Harry