|
Hi, ich hoffe jemand kann mir weiterhelfen.
Ich habe mit der Makro Aufzeichnungs Funktion ein Makro welches an sich perfekt funktioniert. Das einzige Problem ist, das es nicht dynamisch ist. Heißt, wenn ich ein Arbeitsblatt transponieren will welches mehr Zeilen hat als in dem aufgezeichneten Makro, dann wird natürlich nur ein Teil transponiert.
Wie kann ich das im Code umsetzten dass das Makro automatisch weiter ausführt bis die letzte Zeile erreicht wird? Oder das ich nur angeben muss von Zeile 2 bis x jeweils alle 15 Zeilen transponieren.
Aktuell siehts eben so aus.
Range("E2:E17").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("xy_a_Transp").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=93
Range("D110").Select
Sheets("xy_a").Select
ActiveWindow.LargeScroll ToRight:=-8
ActiveWindow.SmallScroll Down:=6
Range("E18:E33").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("xy_a_Transp").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=108
Range("D218").Select
Sheets("xy_a").Select
ActiveWindow.LargeScroll ToRight:=-8
ActiveWindow.SmallScroll Down:=15
Alles manuel sozusagen. Deswegen sind die Scroll Kommandos auch drin.
|