Office: Listbox befüllen

Hallo

brauche wieder einmal Hilfe in VBA.

Wenn ich in Tabelle (Termine2015) in Spalte "B" ein Datum
eingebe, dann erscheint eine Userform mit einer Listbox in
der die Daten(Name,Vorname,....)aus der Tabelle (Kundenkartei)
geladen werden, und in die Tabelle (Termine2015) eingetragen
werden.

Jetzt möchte ich über der Listbox eine Textbox haben, wo ich
den Anfangsbuchstaben vom Namen eingebe, und in der Listbox
sollen jetzt nur noch die Namen aufgelistet werden die mit
diesem Anfangsbuchstaben beginnen.
Hab dafür einen Code im Internet gefunden siehe (CommandButton2)
aber der geht nicht.

Code aus (Userform1_Initialize) hat Anfangs funktioniert,
will jetzt aber auch nicht mehr.


mfg. Willi

:)

 

Hi Willy,

du hast ein generelles Problem: in der ListBox sollen 12 Spalten dargestellt werden, man kann aber nur 10 Spalten mittels AddItem füllen. Du müsstest also zuerst eine Hilfstabelle erstellen, in der du sozusagen alle "gefilterten" Daten ablegst (z.B. in Tabelle3) - dann kannst du diesen Zellbereich in die ListBox einfügen.

Code:

 

Hallo Karin

Erst einmal herzlichen Dank für deine schnelle Antwort.

Ich hab glaube ich einen Fehler in meiner Beschreibung gemacht,
dafür bitte um Entschuldigung, aber es sind nur 9 Spalten (von B bis K),
die in die Listbox gefüllt werden.

Wie muss der Code dementsprechend geändert werden ohne Hilfsspalte.


mfg. Willi

 

Hi Willi,

Code:

 

Hallo Willi, Hallo Beverly,

das ist ein nützlicher Code. Vielen Dank dafür.
Hätte diesbezüglich auch eine Frage (hoffentlich wird das hier geduldet).

Meine Listbox hat 3 Spalten (aus Range A6:C letzter Eintrag)
Über der Listbox ist ebenfalls eine Textbox welche Einträge der 3. Spalte suchen soll.

Gegebenheiten:

• Die Liste ist bereits geladen (wird mit Userform initialisiert)
• Die 2. Spalte ist ausgeblendet (Breite 0cm)

Liege ich richtig, dass das Array eures Codes nicht aus der Tabelle sondern bereits aus den Listbox Einträgen erstellt werden sollte?

Zum Verständnis habe ich im Anhang die Dummy-Datei.


Über Hilfe freue ich mich sehr *Smilie

Grüße

 

Hi,

im Thread-Beispiel wird der Zellbereich nicht als RowSource eingetragen, sondern die Zellinhalte in ein Array geschreiben und dieses Array wird dann als Liste zugewiesen. Du dagegen weist in deiner Sub uf_ProjektEingabe_Initialisieren() der ListBox die Datenquelle mittels RowSource zu, trägst also einen Zellbereich in diese Eigenschaft ein. Wenn du nun in deiner Mappe die ListBox anschließend mit der "gefilterten" Liste füllen willst, musst du zuerst den zugewiesenen Zellbereich löschen, also anstelle .Clear dieses verwenden: .RowSource = "".

 

Hallo,

eigentlich wäre Access hierfür die bessere Lösung.

 

Hallo xlph,

bei mir meldet sich der Compiler.

Gruß von Luschi
aus klein-Paris

 

Das muss natürlich so heißen:

Code:

...hättest selber drauf kommen können. *wink.gif*

 

...nochmal korrigiert.

 

Wow,

Ich freue mich sehr über diese Ausführung.
Die Anwendung finde ich sehr gelungen und professionell.

Vielen Dank für die Mühe und Bereitstellung


Mit Dank,

mso_student

 

Welche Möglichkeiten habe ich denn beim Löschen eines Eintrags, die Indizes Column A) entsprechend anzupassen? Leider fehlt mir hier die Erfahrung und das Grundwissen.

Es müsste wohl etwas in der Art sein:
Finden der zu löschenden Zeile
Offset +1
Von aktiver Zelle alle Index Werte (bis zur letzten Zeile): Wert -1
reload der Listbox?

Ist der Ansatz in Ordnung?

 

Welche Möglichkeiten habe ich denn beim Löschen eines Eintrags, die Indizes Column A) entsprechend anzupassen? Leider fehlt mir hier die Erfahrung und das Grundwissen.

Es müsste wohl etwas in der Art sein:
Finden der zu löschenden Zeile
Offset +1
Von aktiver Zelle alle Index Werte (bis zur letzten Zeile): Wert -1
reload der Listbox?

Ist der Ansatz in Ordnung?

 

Wozu brauchst du Index? ID langt zur Kennzeichnung eines eindeutigen Datensatzes.

 

Sorry, mein Fehler. ID war natürlich gemeint.

Beim Löschen eines Eintrages werden die IDs nicht angepasst und sind dadurch nicht mehr fortlaufend.