ich habe mir ein Makro ausgedacht, das nicht Funktioniert:
Es soll in der Spalte J nachschauen, wo der letzte Eintrag ist.
Dann soll es in Spalte H und I die folgenden Zellen (ca 1000 Zeilen weit) löschen.
Sub d1_Feiertage_von_R_Sortierung_säubern()
' Überflüssige Anfangs- und -End-Werte entfernen
Dim letzteZelle As Integer, ersteZelle As Integer
ersteZelle = Cells(Rows.Count, 10).End(xlUp).Offset(1, -2)
letzteZelle = Cells(Rows.Count, 10).End(xlUp).Offset(1000, 0)
Sheets("Feiertage").Select 'zu den R-Rechnung-Terminen gehen
Range(ersteZelle, letzteZelle).Delete shift:=xlUp
Range("G1").Select
End Sub
Wer kann mir bitte weiterhelfen?
Dank Euch,
Servus,
Anton