Listenbox leere Zeilen löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Listenbox leere Zeilen löschen
von: matthias
Geschrieben am: 11.05.2015 15:10:43

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

Bild

Betrifft: AW: Listenbox leere Zeilen löschen
von: Rudi Maintaire
Geschrieben am: 11.05.2015 15:17:48
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

Bild

Betrifft: AW: Listenbox leere Zeilen löschen
von: Nepumuk
Geschrieben am: 11.05.2015 15:21:39
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

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Listenbox leere Zeilen löschen"