Letzter Eintrag im Bereich Löschen
19.11.2022 11:23:38
Dani
Und wieder mal brauche ich eure wertvolle Hilfe
Ich will im Bereiche den letzten Eintrag löschen, folgenden Code funktioniert, jedoch nicht für meine Bedürfnisse.
Wie muss ich den Code ändern damit, es nur im Bereich Range("B7:C56") löscht.
Private Sub CommandButton3_Click()
Dim löschen As Long
With Sheets("Ferienplan")
If MsgBox("Möchtest du wirklich den letzten Eintrag löschen?", vbYesNo, "Löschen") = vbYes Then
' löschen = .Cells(56, 2).End(xlUp).Row
löschen = .Cells(Rows.Count, 2).End(xlUp).Row
.Cells(löschen, 2).ClearContents
.Cells(löschen, 3).ClearContents
.Cells(löschen, 4).ClearContents
End If
End With
End Sub
Gruß
Dani