Dynamisches dropdownmenü
13.08.2008 12:55:00
ulleh
ich muss zugeben, ich bin nicht der "Hellste" was programmieren angeht.
Ich habe ein, für viele von euch, leichtes Problem.
Ich habe eine Selectorbox, die die Werte aus dem Range("ListCountry") holt.
Die Problematik: In der Liste Laender sind auch manche Zellen nicht belegt. z.B. mit "n/a" belegt.
Deutschland
England
Frankreich
n/a
n/a
USA
Brasilien
n/a
n/a
...
etc.
Ich habe mir überlegt, die belegten Felder manuell in eine neue Tabelle Range("DropDownList") zu kopieren und diese dann der Selectorbox zuzuweisen.
Wie kann man dies automatisieren? bzw. wie würde der VBA Code aussehen?
Meine "Schleifenversuche" (wie mir empfohlen wurde) ´na ja... funzt net:( und ich weiß nicht wie ich was ersetzen sollte!
Danke im Voraus für eure Ideen.
Sub Test()
Dim i As Integer
Dim h As String
i = 0
While Not i > 44
Range("ListCountry").Select
h = Range(Cells(i, 1)).Text
If h "n/a" Then
Selection.Copy
Range("DropDownList", Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
i = i + 1
Wend
End Sub
Anzeige