wie kann ich in einer Listbox eine neue Zeile einfügen, welche 4 Spalten enthält und diese mit Werten füllen?
Und wie kann ich in einer Listbox eine Zeile zwischen den Zeilen einfügen?
MfG
Holger Wächter
Dim strWidth As String
With ListBox1
.ColumnCount = 4
strWidth = (.Width - 4) / 4
.ColumnWidths = strWidth & ";" & strWidth & _
";" & strWidth & ";" & strWidth
.AddItem 'leere Zeile 1
.List(.ListCount - 1, 0) = "Spalte 1"
.List(.ListCount - 1, 1) = "Spalte 2"
.List(.ListCount - 1, 2) = "Spalte 3"
.List(.ListCount - 1, 3) = "Spalte 4"
.AddItem 'leere Zeile 2
.List(.ListCount - 1, 0) = "Zeile 2"
.List(.ListCount - 1, 1) = "Zeile 2"
.List(.ListCount - 1, 2) = "Zeile 2"
.List(.ListCount - 1, 3) = "Zeile 2"
.AddItem , 1 'leere Zeile zwischen 1 und ehemals 2
.List(1, 0) = "Zeile 2 neu"
.List(1, 1) = "Zeile 2 neu"
.List(1, 2) = "Zeile 2 neu"
.List(1, 3) = "Zeile 2 neu"
End With
Gruss- Micha