Moin Zusammen,

ich habe mittels der Makroaufnahme ein Makro erstellt, damit ich wöchentliche Reports nicht mehr manuell anpassen muss. Da sich die Menge der einzelnen Zeilen jedoch von Woche zu Woche unterscheiden wollte ich fragen, wie sich die Range anpassen lässt, sodass ich mir keine Sorgen machen brauche, falls eine Woche 50 Zeilen mehr hat.

Columns("B:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$1:$B$283").AutoFilter Field:=1, Criteria1:= _
        "=Andere Gebühr", Operator:=xlOr, Criteria2:="=Anpassung"
        Range("AF287").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-30],""Andere Gebühr"",C[-21])"
    Range("AF288").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-30],""Anpassung"",C[-21])"
    Range("AF289").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
    Range("AF289").Select
    Selection.Copy
    Range("AF9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AF287:AF289").Select
    Range("AF289").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("AF286").Select
    Rows("7:269").Select
    Range("A269").Activate
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$B$1:$B$85").AutoFilter Field:=1
    ActiveWindow.SmallScroll Down:=-9
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Columns("F:F").Select
    Selection.Cut
    Range("C1").Select
    ActiveSheet.Paste
    Columns("F:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("P:Q").Select
    Selection.Delete Shift:=xlToLeft
    Columns("T:T").Select
    Selection.Delete Shift:=xlToLeft
    Columns("Z:Z").Select
    Selection.Copy
    Range("G1").Select
    ActiveSheet.Paste
    Range("A11").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Datum"
    Range("A12").Select

Vielen Dank und LG