Zellenformatierung Listbox gleiches Format

[Frank-Kan]

Danke Uwe.
Ich habe beides in den Button geschrieben.
Ok.
If ListBox1.ListIndex = -1 Then
MsgBox "kein Eintrag markiert"
Exit Sub
End If
muss am Anfng des Buttons stehen
und
ListBox1.RemoveItem (ListBox1.ListIndex)
am Ende.
Dann funktioniert es.
Vielen Dank Uwe dafür.