kann mir jemand diesen Code ändern, dass er nur die markierte Zeile vom Bereich D bis O löscht.
Private Sub CommandButton2_Click() ' Button Löschen
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 2
Do While Trim(CStr(Tabelle9.Cells(lZeile, 4).Value)) ""
If ListBox1.Text = Trim(CStr(Tabelle9.Cells(lZeile, 4).Value)) Then
Tabelle9.Rows(CStr(lZeile & ":" & lZeile)).Delete
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub
Leider löscht es auch A bis C.Danke und ich hoffe um eure Hilfe.
Lieben Gruß aus München
Klaus