Ich hätte ein großes Problem.
Ich soll aus einem generierten Report aus einem ERP System einen verwertbaren Bericht in Excel machen und dazu muss ich einige Sachen ändern.
Da nun aber nicht alle Zellen zu den jeweiligen Überschriften passen, wollte ich mir da mit einem Marko helfen, denn der Bericht wird mich öfter heimsuchen.
Mein Problem ist nun folgendes
Ein Teil der Daten ist um je 2 Zeilen versetzt, da die Daten variieren kann ich nicht immer die gleichen Zellen verschieben, aber dies lässt sich mit Strg und nach unten in der Spalte (CB) sehr gut rausfinden.
Wenn ich nun die Reihe habe, muss ich 7x (Strg und links) drücken und dann den markierten Block um 2 Spalten nach links schieben. Nun habe ich aber das Problem, dass mir das makro die aktiven Zeilen nicht nehmen will.
Ich habe mich mal in VBA versucht und bin aber zu keinem Ergebnis gekommen.
So sieht mal mein Versuch aus:
Columns("BK:CC").Select
Selection.UnMerge
Range("CB3").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select (Markieren des Zeilenblocks)
Range(Selection, Selection.End(xlToLeft)).Select (7x nach links)
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Cut Destination:=Range(Selection, Selection).Select (dort soll er die aktiven Zellen ausschneiden)
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row - 2)).Select (und hierhin verschieben)
Für eure hilfe wäre ich äußerst dankbar.
Beste Grüße
Florian