zur Zelle anstatt Zeile löschen
13.05.2020 00:28:09
Frank
ich komme nach x Versuche nicht drauf, wie folgender Code lauten muss, damit nicht die ganze Zeile sondern nur die Zelle gelöscht wird, welche mir in der ListBox1 angezeigt wird (es wird nur eine Spalte angezeigt).
Grund: es sollen die Daten in Spalte B erhalten bleiben.
Code:
Private Sub CommandButton5_Click()
'Zeile löschen
If ListBox1.ListIndex = -1 Or _
ListBox1.ListIndex = 0 Or _
ListBox1.ListIndex = 1 Then
Exit Sub
End If
Dim i As Long
For i = 0 To ListBox1.ListCount - 1 '(-1 wegen Row.Source)
If ListBox1.Selected(i) = True Then
Sheets("Notizen2").Rows(i + 1).EntireRow.Delete
End If
Next
ListBox1.RowSource = "Notizen2!A1:A" & Sheets("Notizen2").Range("A1").End(xlDown).Row
End Sub
Wer kann mir auf die Sprünge helfen?
Danke und Gruß Frank.
Anzeige