Hallo Leute!
Ich habe mir in einer Userform mehrere Drop-Down-Listboxen erstellt.
Da oft nur wenige Möglichkeiten der Auswahl bestehen und diese auch in Zukunft nicht geändert werden sollen, habe ich diese in den Quellcode geschrieben, ungefährt so:
Geschlecht = Array("männlich", "weiblich")
For Ges = 0 To 2
cmbGeschlecht.AddItem (Geschlecht(Ges))
Next Ges
Nun habe ich aber eine riesige Liste von Staatsangehörigkeiten, die ich nicht in den Quellcode schreiben möchte, sondern auf ein zusätzliches Excelblatt mit dem Namen: Katalog_Staaten
Wie kriege ich es nun hin, dass mir diese Werte angezeigt werden?
Ich habe die Werte alle in Spalte B abgelegt. Mein Versuch war so:
'ComboBox Nationalität
Sheets("Katalog_Staaten").Select
n = Range("B" & Rows.Count).End(xlUp).Row
For Nat = 0 To n
For Nationalität = Range("B") To n
cmbNation.AddItem (Nationalität(Nat))
Next Nationalität
Next Nat
Das führt zu dem Laufzeitfehler 1004 - Methode für das Range-Objekt-Global ist fehlgeschlagen.
Hat jemand eine Idee?
Gruß
Frank