Ich möchte nun alle dazwischen liegenden Zeilen mit Hilfe eines Makros löschen, aber diese zwei Zeilen nicht
Geht das irgendwie?
- Benjamin
Option Explicit
Sub SubM2()
Range(Range("StartPoint"), Range("StopPoint")).EntireRow.Delete
End Sub
Jedoch wird der StopPoint auch gelöscht... ist das irgendwie umgehbar?Sub ZeilenLoeschen()
If Range("StarPoint").Row
GrußOption Explicit
Sub Loeschen()
Range(Range("StarPoint").Offset(0, 1), Range("StopPoint").Offset(0, -1)).ClearContents
End Sub