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!!!
|