[color=green]'...Paar aufgezeichnete Zeilen
'Bereich markieren, Kopieren,
'danach "Inhalte einfügen" wählen und
'im Dialog unten rechts "Transponieren" aktivieren
 
Range("A1:C4").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAll, _
                       Operation:=xlNone, _
                       SkipBlanks:=False, _
                       Transpose:=True