Hallo,
Ich habe aber nur ein Problem.
Ein Buchstabe und ein Bland sind ja nicht gleich bereit.
Beipiel:
Ulm
Frankfurt
Diese beide Städte stehen nicht untereinander in einer Listenbox, denn die Blanks nicht so bereit sind wie die Buchstaben.
Ich nutze die Funktion MID(ort,1,12) und dann wie der folgeneden Schleife füge
ich Blanks hinzu:
while len(ort)
Hallo, Löse das wie folgt:
erstelle eine Combox und lege Ort und strasse nebeneinander in der Tabelle an. Gehe auf die Combox eigenschaften und ändere:
RowSource mit SpalteOrt:SpalteStrasse (A5:B2090)
Column Count = 2
so, das ist schon alles und lass dich überraschen
Grüsse sebastian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rezaei.
Wenn Du Leerzeichen hinzufügen willst, müsstest Du schreiben:
ort = ort & " " (Also nicht mit Mal-Zeichen, sondern mit kaufmännischem Und)
Du könntest Dir aber auch die Schleife sparen, und stattdessen eine String-Variable von fester Länge deklarieren und nach folgendem Prinzip vorgehen:
Dim FestOrt As String*20 'String-Variable mit fester Länge von 20 Zeichen
Dim FestStrasse As String*20
FestOrt = ort
FestStrasse= strasse
List.AddItem FestOrt & FestStrasse
Die Chancen stehen aber schlecht, dass Du dabei mit Arial Erfolg hast. Dazu müsstest Du dann eine Schriftart nehmen, bei der alle Zeichen gleich lang sind, z.B. Courier New.
Möglicherweise klappt das Ganze, wenn Du Tabs einfügst. Das würde dann so aussehen:
List.AddItem ort & vbTab & strasse
Das müsstest Du aber ausprobieren, keine Garantie, das es klappt.
MfG
C.Mehnert