DropDown-Feld leeren?
Christoph
Ich habe eine Tabelle,Spalte A und Spalte B.
In Spalte A stehen die Zahlen von 1 - 255 und in Spalte B ist in jeder Zeile dahinter entweder ein "X" für Vorhanden oder das Feld ist leer für "Nicht vorhanden"
Ziel ist es, alle Zahlen,hinter denen ein "X" steht , in das Drop Down Feld ("Drop Down 1") zu bringen!
Das funktioniert auch super,mit folgendem Code:
(Der Bereich Code Combo ist die Spalte B mit den "X" - Der Zähler erhöht sich in jedem Schritt _ um 1 und signalisiert die jeweilige Zeile,die dann in die Drop Down Box geschrieben wird)
Sub Test10()
Dim Zähler
Dim rng As Range
Zähler = 1
ActiveSheet.Shapes("Drop Down 1").Select
With Selection
For Each rng In Range("Code_Combo")
If IsEmpty(rng) = False Then
.AddItem Zähler
End If
Zähler = Zähler + 1
Next 'rng
End With
End Sub
Das Problem ist,wenn ich das Makro mehrmals laufen lasse,schreibt VBA die weiteren Werte immer wieder neu ZU DEN ALTEN DAZU !
Frage: Wie kann ich den Inhalt einer Drop Down Box leeren ?