Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Listbox:leere Zellen nicht anzeigen...

Listbox:leere Zellen nicht anzeigen...
11.01.2005 15:24:33
M.Bacher
Hallo, Zusammen
folgendes kleines Problem:
Ich fülle über einen Button eine Listbox zweispaltig in einer Userform.

Private Sub CommandButton1_Click()
UserForm1.ListBox1.RowSource = ""
With UserForm1.ListBox1
.ColumnCount = 2
.ColumnWidths = "5cm;7cm"
.ColumnHeads = True
.RowSource = "Tabelle1!E4:F500"
End With
UserForm1.Show
End Sub

Das klappt prima! Nun sind aber nur die ersten 200 oder auch mal nur 20 Zeilen des Tabellenbereichs befüllt. Er schreibt natürlich alle knapp 500 Zeilen in die Listbox. Wie kann ich nicht beschriebene Zellen des Tabellenblattes weglassen.
Schöne Grüße Mario
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox:leere Zellen nicht anzeigen...
11.01.2005 15:41:14
Matthias
Hallo Mario,
wie wär's damit:
Private Sub CommandButton1_Click()
Dim lz As String
UserForm1.ListBox1.RowSource = ""
lz = Sheets("Tabelle1").Range("F501").End(xlUp).Address(0, 0)
With UserForm1.ListBox1
.ColumnCount = 2
.ColumnWidths = "5cm;7cm"
.ColumnHeads = True
.RowSource = "Tabelle1!E4:" & lz
End With
UserForm1.Show
End Sub
Gruß Matthias
Anzeige
AW: Listbox:leere Zellen nicht anzeigen...
11.01.2005 15:46:28
M.Bacher
Hallo, Matthias
vielen Dank für Deine schnelle Hilfe!
Hat prima funktioniert
Danke noch einmal und schönen Tag
Gruß Mario
Danke für die Rückmeldung! - o.T.
11.01.2005 15:55:01
Matthias
-
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige