Listbox
11.02.2004 14:50:39
Gerka
Ich habe ein für die meisten von Euch eher simples Problem, an dem ich mir als VBA Anfänger aber die Zähne ausbeisse.
Ich habe in der Spalte A10 bis Ax (für x -> beliebig, s.u.) Strings stehen (wie z.B. Mueller oder Heinz), welche aber mit Leer-Zellen unterbrochen werden.
Beispiel:
A10: Mueller
A11:
A12:
A13:
A14: Heinz
A15:
A16:
...
Irgendwann sind ab irgendeiner Zelle in der Spalte A nach unten hin gesehen keine Namen mehr vorhanden.
WAS ICH BISLANG HABE:
---------------------
In der Tabellenlasche habe ich einen Button eingefügt, den ich wie folgt progammiert habe:
Private Sub CommandButton_Click()
USERFORM.lst_Namen.RowSource = ("A26:A100")
USERFORM.Show
End Sub
Die Listbox "lst_Namen" rufe ich in einem Userformular mit Namen USERFORM und diese füllt sich auch korrekt mit den Spalten A26 bis A100. Allerdings sind natürlich alle leeren zellen auch als eigenständiger Eintrag vorhanden, nämlich wie folgt (nix bedeutet, der Eintrag ist leer):
Mueller
(nix)
(nix)
(nix)
Heinz
(nix)
(nix)
...
WAS ICH MÖCHTE:
---------------
1.
Ich möchte mir nur die Zellen in der Spalte A25 ff. in der Listbox anzeigen lassen, die in der Tabellenlasche nicht leer sind. Also die Listbox sollte wie folgt aussehen:
Mueller
Heinz
2.
Wenn ab bspw. der Spalte A14 nur noch leere Zellen sind (z.B. würde eine Abfrage ausreichen, die überprüft, ob die nächsten 25 Zellen nach unten gesehen leer sind), so soll der VBA Code dies merken und als letzten Eintrag in diesem Beispiel den "Heinz" nennen.
Vielen Dank im Voraus für Eure Hilfe und viele Grüße,
Gerka