ich habe noch ein kleines Problem.
Nach dem löschen soll in der Listbox die Zeile aktiviert werden,
entweder darunter oder auch darüber der gelöschten Zeile.
Die 1. Zeile in der Listbox habe ich deaktiviert, da ich mehr als 100 Einträge habe.
Private Sub CommandButton4_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 4
Do While Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) <> ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) Then
Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete
With Sheets("Typen")
ListBox1.List = .Range(.Cells(4, 2), .Cells(4, 2).End(xlDown)).Resize(, 2).Value
.Columns("B:C").EntireColumn.AutoFit 'spalten optimal angepaßt
End With
' If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0 'hiermit wird die 1.Zeile angesprungen
Exit Do
End If
lZeile = lZeile + 1
Loop
TextBox1.Value = ""
TextBox2.Value = ""
mfg
walter k