Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1620to1624
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
ListBox aus 2 Spalten ohne Lücken füllen
20.04.2018 20:29:25
Henner
Hallo zusammen
Mit dem folgenden Code fülle ich eine ListBox aus 2 Spalten. Leider werden leere Zeilen aus den Spalten mit eingelesen. Wie muss ich den Code anpassen um in der ListBox keine leeren Zeilen zu erhalten?
Zur Info: Wenn eine Zelle leer ist, ist die zweite auch leer.

Me.ListBox1.ColumnCount = -1
Me.ListBox1.RowSource = "Control!K3:L16"
Besten Dank und Gruss, Henner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBox aus 2 Spalten ohne Lücken füllen
20.04.2018 20:58:59
Gerd
Moin Henner!
Dim C As Worksheet, L As Long
Set C = Worksheets("Control")
With ListBox1
.Clear
.ColumnCount = 2
For L = 3 To 16
If C.Cells(L, 11)  "" And C.Cells(L, 12)  "" Then
.AddItem C.Cells(L, 11)
.List(.ListCount - 1, 1) = C.Cells(L, 12)
End If
Next
End With
Set C = Nothing

Gruß Gerd
AW: ListBox aus 2 Spalten ohne Lücken füllen
20.04.2018 21:03:20
Gerd
Moin Henner!
Dim C As Worksheet, L As Long
Set C = Worksheets("Control")
With ListBox1
.Clear
.ColumnCount = 2
For L = 3 To 16
If C.Cells(L, 11)  "" And C.Cells(L, 12)  "" Then
.AddItem C.Cells(L, 11)
.List(.ListCount - 1, 1) = C.Cells(L, 12)
End If
Next
End With
Set C = Nothing

Gruß Gerd
Anzeige
AW: ListBox aus 2 Spalten ohne Lücken füllen
20.04.2018 21:28:05
Henner
Hi Gerd
Vielen Dank und schönes Wochenende! Gruss Henner
AW: ListBox aus 2 Spalten ohne Lücken füllen
22.04.2018 14:47:22
snb

Sub M_snb()
sn = [Control!K3:L16]
For j = 1 To UBound(sn)
If (sn(j, 1)  "") * (sn(j, 2)  "") Then c00 = c00 & "|" & j
Next
if c00"" then Listbox1.List = Application.Index(sn, Application.Transpose(Split(Mid(c00, 2), _
"|")), Array(1, 2))
End Sub

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige