Ich nutze umeine ListBox mit Daten zu füllen folgenden Code:
Dim Daten() As Variant, avntValues As Variant
Dim lng As Long, lngCount As Long
With Worksheets("Adressen_Polizei")
avntValues = .Range(.Cells(3, 64), .Cells(100, 70)).Value
End With
With frmAdressen_Polizei
.ListBox2.ColumnCount = 8
.ListBox2.ColumnWidths = "100;100;100;100;100;100;140"
.ListBox2.Clear
For lng1 = 3 To 100
If Cells(lng1, 64) = ComboBox1 And Cells(lng1, 64) "" Then
For lng = LBound(avntValues) To UBound(avntValues)
lngCount = lngCount + 1
ReDim Preserve Daten(0 To 16, 1 To lngCount)
Daten(0, lngCount) = avntValues(lng, 1)
Daten(1, lngCount) = avntValues(lng, 2)
Daten(2, lngCount) = avntValues(lng, 3)
Daten(3, lngCount) = avntValues(lng, 4)
Daten(4, lngCount) = avntValues(lng, 5)
Daten(5, lngCount) = avntValues(lng, 6)
Daten(6, lngCount) = avntValues(lng, 7)
Daten(7, lngCount) = lng + 2
Next lng
End If
Next lng1
On Error Resume Next
.ListBox2.Column = Daten
End With
Mein Problem ist, dass mir auch wenn in Spalte 64 kein Wert steht fie Zeilenzahl trotzdem in der ListBox angezeigt wird. Die Zeilennumer soll generell nur dann angezeigt werden, wenn in Spalte 64 ein Wert steht.
Ich dachte es mit den fett gedruckten Zeilen lösen zu können, aber Fehlanzeige. Was zum Himmelswillen mache ich falsch? Bitte um Hilfe, danke dafür und noch einen schönen Abend!
Gruß Frank H.