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.