Ich möchte in einer Listbox eine horizontale Linie einfügen. Es sind 6 Spalten und die Linie soll über alle Spalten gehen.
Wie lautet der Befehl hierzu ?
lg
Tobi
Do
Set rng = Workbooks("DATEN_24.xls").Worksheets("Daten erfassung").Range("V:V"). _
FindNext(After:=rng)
If rng.Address = sFirst Then Exit Do
ListBox2.AddItem
ListBox2.List(i, 0) = rng.Offset(0, -17) & " " & rng.Offset(0, -16)
ListBox2.List(i, 1) = "| " & rng.Offset(0, -7)
ListBox2.List(i, 2) = "| " & rng.Offset(0, 86)
ListBox2.List(i, 3) = "| " & rng.Offset(0, 97)
ListBox2.List(i, 4) = "| " & rng.Offset(0, 98)
ListBox2.List(i, 5) = "| " & rng
i = i + 1
' Dann soll die Linie kommen