Hallo,

mein Makro funktioniert für die Datei in der ich es erstellt habe, aber nicht für andere. Das Problem ist dass die Zeilen Länge variiert, da es sich um Messwerte handelt. Ich habe dies eigentlich umgehen wollten indem ich per  Selection.End(xlDown).Select und Selection.End(xlDown).Select den gsamten Bereich unabhängig seiner Länge auswähle. Leider speichert exel im Aufnahmemodus aber genau die Zeile und Spalten ab, die hierdurch erzeugt wurden.

Ich denke dass "Selection.Cut Destination:=Range("A1:J142815")" durch ersetzt werden muss. Es soll quasi genau dass ausgewählt und ausgeschnitten werden, wass zuvor durch shift+strg+down  und shift+strg+right ausgewählt wurde.

Zum gesamt Problem: Ich habe eine exel Datei, in der einige Positionen immer die selben sind, andere aber in Abhängigkeit der Messwerte leider nicht. Das Dokument soll geordnet werden. Hierdruch behelfe ich mich der art dass ich nach und nach die Datenblöcke ordne und immer von Referenzpunkten wie A0 zum ersten beschriebenen Eintrag springe und dann von dort den Block per SHIFT+STRG+Peil aufwähle und verschiebe.

'
' Clean_mVP_Files Makro
'

'
    Range("A10").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-264
    Selection.Cut Destination:=Range("AN1:BO328")
    Range("AN1:BO328").Select
    Range("A1:B7").Select
    Selection.Cut Destination:=Range("BQ1:BR7")
    Range("BQ1:BR7").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("BQ4").Select
    Range("BQ4").Cut Destination:=Range("BQ1")
    Range("BR4").Select
    Range("BR4").Cut Destination:=Range("BQ2")
    Range("BQ6").Select
    Range("BQ6").Cut Destination:=Range("BR1")
    Range("BR6").Select
    Range("BR6").Cut Destination:=Range("BR2")
    Range("BQ7").Select
    Selection.Cut Destination:=Range("BS1")
    Range("BR7").Select
    Selection.Cut Destination:=Range("BS2")
    Range("BQ3").Select
    Selection.Cut Destination:=Range("BT1")
    Range("BR3").Select
    Selection.Cut Destination:=Range("BT2")
    Range("BQ5:BR5").Select
    Selection.ClearContents
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Columns("C:AC").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.Cut Destination:=Range("A1:J142815")
    Range("K:K,L:L").Select
    Range("L1").Activate
    Selection.ClearContents
    Selection.Delete Shift:=xlToLeft
End Sub

Vielen Dank für Eure Hilfe!!!