VBA Code anpassen (Zeile löschen)
13.11.2018 09:32:02
andi1893
mit folgendem Code kann ich die vorletzte Zeile einer Tabelle löschen (die letzte Zeile enthält die Summenzeile, daher soll diese erhalten bleiben!).
Ich möchte nun die Zeilen 10 bis x, wobei x die durch den Code ermittelte Zeile ist, löschen. Wahrscheinlich sehr einfach, allerdings sind meine VBA Kenntnisse nicht sehr gut.
Code:
Sub ZeileÜberSummenFormelLöschen()
Dim R As Range, C As Range
'Zuerst die letzte benutze Zelle in Spalte E suchen, diese enthält die SUMME Formel
Set R = Range("E" & Rows.Count).End(xlUp)
'Eine Zeile höher gehen
Set R = R.Offset(-1)
'Wenn leer dann die nächste benutzte Zelle darüber suchen
If IsEmpty(R) Then Set R = R.End(xlUp)
'Über der letzten Datenzeile eine Zeile löschen
R.EntireRow.Delete
End Sub
Anzeige