Moinsen, ich hab da mal ne Frage, ich habe folgenden Quelltesxt generiert, wenn ich nun aber über der entsprechenden Tabelle eine Zeile einfüge oder lösche, dann muss ich den Rangebefehl immer anpassen. Gibt es eine Möglichkeit direkt den Spaltenkopf bzw. deren Bezeichnung anzusprechen?

  Worksheets("Offen").Range("E8:F8").Copy
    Worksheets("Ausgezahlt").Range("A2:B2").PasteSpecial Paste:=xlPasteValues
    
    Worksheets("Offen").Range("G8:I8").Copy
    Worksheets("Ausgezahlt").Range("D2:F2").PasteSpecial Paste:=xlPasteValues
    
    Worksheets("Offen").Range("C8").Copy
    Worksheets("Ausgezahlt").Range("H2").PasteSpecial Paste:=xlPasteValues
    
    Worksheets("Offen").Range("K8").Copy
    Worksheets("Ausgezahlt").Range("J2").PasteSpecial Paste:=xlPasteValues

beim Sortieren genau die selbe Herausforderung.

Worksheets("Ausgezahlt").Select
    Range("Tabelle8").Sort _
    Key1:=Range("I2"), _
    Order1:=xlAscending, _
    Header:=xlYes