Listbox; hier Nullwerte
Volker
Ich übernehme mittels nachstehendem Code eine Tabelle in eine Listbox.
Soweit funktioniert das auch. Ich zerbreche mit aber den Kopf darüber wie ich die
"Nullwerte" welche sich in der Tabelle befinden in der Listbox ausblenden kann.
In der Recherche habe ich ein Beispiel gefunden,bekomme es aber nicht eingebaut.
Was muss ich an dem Code verändern, damit er mir die Nullwerte nicht in der Listbox anzeigt?
Gruß
Volker
Private Sub CommandButton1_Click()
Dim lletzte As Long
Dim lZeile As Long
Dim iLibox As Integer
lletzte = IIf(Range("A38") "", 38, Range("A38").End(xlUp).Row)
With UserForm1.ListBox1
.ColumnCount = 8
For lZeile = 2 To lletzte
.AddItem
.List(iLibox, 0) = Format(Range("A" & lZeile).Value, "0") 'Cells(lZeile, 1).Value
.List(iLibox, 1) = Format(Range("B" & lZeile).Value, "0")
.List(iLibox, 2) = Format(Range("C" & lZeile).Value, "0")
.List(iLibox, 3) = Format(Range("D" & lZeile).Value, "0.00") 'Cells(lZeile, 4).Value
.List(iLibox, 4) = Format(Range("E" & lZeile).Value, "0") 'Cells(lZeile, 5).Value
.List(iLibox, 5) = Format(Range("F" & lZeile).Value, "0.00") 'Cells(lZeile, 6).Value
.List(iLibox, 6) = Format(Range("H" & lZeile).Value, "00.00")
iLibox = iLibox + 1
Next lZeile
End With
End Sub
Anzeige