Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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
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
-
Anzeige

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige