Mittels folgendem Code wird eine ListBox gefüllt!
Dim i As Integer
With frmDaten
.ListBox1.Clear
Sheets("CD_Archiv").Activate
i = 0
For lng = 5101 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 158).Value = CDbl(.TextBox2) Then
.ListBox1.AddItem Cells(lng, 157).Value
.ListBox1.Column(1, i) = Cells(lng, 158).Value
.ListBox1.Column(2, i) = Cells(lng, 159).Value
.ListBox1.Column(3, i) = Cells(lng, 160).Value
.ListBox1.Column(4, i) = Cells(lng, 161).Value
.ListBox1.Column(5, i) = Cells(lng, 162).Text
.ListBox1.Column(6, i) = Cells(lng, 163).Text
.ListBox1.Column(7, i) = Cells(lng, 164).Value
i = i + 1
Else
End If
Next lng
Es können also mehrere Zeilen in dedr ListBox gefüllt sein. Nun meine Frage:
Wie kann ich dann die Zellen, wenn nötig, leeren.
Konntet ihr mich verstehen? Für jede Hilfe wie immer dankbar!!!
Gruß Frank H.