Herbers Excel-Forum - das Archiv

Postleitzahlen in Combobox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Postleitzahlen in Combobox
von: Stefan

Geschrieben am: 16.12.2006 13:32:25
Hallo,
ich würde mir gern eine Annehmlichkeit schaffen und eine Combobox mit allen Postleitzahlen aus Deutschland "füttern", d. h. von 00001 bis 99999. Da Excel aber nur 65635 Zeilen hat, geht das so nicht.
Hat jemand eine Idee, wie man so was machen könnte??
Für Eure Hilfe schon mal besten Dank im voraus.
Gruß
Stefan
Bild

Betrifft: AW: Postleitzahlen in Combobox
von: ransi
Geschrieben am: 16.12.2006 13:58:11
HAllo Stefan
Schreib deine Postleitzahlen und Orte in eine Textdatei.
Über die List -Eigenschaft der Combobox füllst du sie dann mit den Daten aus der .txt.
ransi
Bild

Betrifft: AW: Postleitzahlen in Combobox
von: ransi

Geschrieben am: 16.12.2006 14:03:07
HAllo
Wenn du allerdingsnur die ZAhlen brauchst, gehts so am schnellsten:


Option Explicit
Public Sub test()
Dim arr(1 To 100000)
Dim L As Long
ComboBox1.Clear
For L = 1 To 100000
    arr(L) = Format(L, "00000")
Next
ComboBox1.List = arr
End Sub

     Code eingefügt mit Syntaxhighlighter 4.0

ransi
Bild

Betrifft: AW: Postleitzahlen in Combobox
von: Stefan
Geschrieben am: 16.12.2006 15:01:01
Hallo ransi,
genau das hab ich gesucht.
Funktioniert toll. Danke.
Gruß
Stefan
Bild

Betrifft: AW: Postleitzahlen in Combobox
von: Daniel Eisert

Geschrieben am: 16.12.2006 15:41:16
Hallo
mal ne frage, 100.000 Zeilen in ner combobox nur Zahlen ohne Hinweistext, vereinfacht das das Arbeiten wirklich?
falls du lieber mit der Maus als mit der Tastatur arbeitets, wärs da nicht einfacher, du baust mit ner Userform eine kleine Bildschirm-10er-Tastatur?
nur mal so als Idee,
Gruß, Daniel
 Bild
Excel-Beispiele zum Thema "Postleitzahlen in Combobox"
Zellen mit Postleitzahlen separieren ComboBox als Symbol
Alle ComboBoxes auf Position 1 Werte in eine ComboBox einer UserForm übernehmen
ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden ComboBox mit Monatsnamen füllen
Mehrspaltige ComboBox ComboBox2 in Abhängigkeit von ComboBox1 bestücken
Nur Zellen mit Inhalt in ComboBox listen Neue UserForm bedingt nach ComboBox-Auswahl aufrufen