Microsoft Excel

Herbers Excel/VBA-Archiv

Dynamisches dropdownmenü

Betrifft: Dynamisches dropdownmenü von: ulleh der bulli
Geschrieben am: 13.08.2008 12:55:12

Guten Morgen zusammen,

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


  

Betrifft: AW: Dynamisches dropdownmenü von: Andreas Emmert
Geschrieben am: 13.08.2008 16:58:49

Hi,

evtl. so mal als schneller Vorschlag:
https://www.herber.de/bbs/user/54584.xls

Grüße
Andreas


  

Betrifft: AW: Dynamisches dropdownmenü von: ulleh der bulli
Geschrieben am: 13.08.2008 17:57:31

Ich liebe dich Andreas!!!!

VIELEN DANK!


 

Beiträge aus den Excel-Beispielen zum Thema "Dynamisches dropdownmenü"