Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1424to1428
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
Listenbox leere Zeilen löschen
11.05.2015 15:10:43
matthias
Hallo ich kann mittels den Code
Private Sub UserForm_Initialize()
With ListBox1
ListBox1.RowSource = "Tabelle2!C1:C1000"
End With
End Sub

eine Listenbox super füllen.
Nur leider werden mir dabei alle Zellen aufgelistte.
Ich möchte aber, dass ersten nur Werte größer Null angezeigt werden und zweitens sollen Zeilen in denen kein Wert steht auch nicht in der Listenbox als leere Zeile auftauchen.
Ich kommm jedoch hier einfach nicht weiter.
Brauche Hilfe!!! Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listenbox leere Zeilen löschen
11.05.2015 15:17:48
Rudi
Hallo,
Private Sub UserForm_Initialize()
Dim i As Long
With Tabelle2
For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3) > 0 Then
ListBox1.AddItem i
End If
Next i
End With
End Sub

Gruß
Rudi

AW: Listenbox leere Zeilen löschen
11.05.2015 15:21:39
Nepumuk
Hallo,
das geht dann aber nicht mehr mit der RowSource-Eigenschaft.
Private Sub UserForm_Initialize()
    Dim lngIndex As Long
    With ListBox1
        .List = Worksheets("Tabelle2").Range("C1:C1000").Value
        For lngIndex = .ListCount - 1 To 0 Step -1
            If .List(lngIndex) = "" Then .RemoveItem lngIndex
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige