Vielen Dank an User91504, dass Sie mich dazu ermutigt haben, MS-Makros auszuführen.
Die Arbeitslösung hat sehr einfachen Code:
Sub Paste_transpose() ' ' Paste_transpose Macro ' ' ActiveCell.Offset.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub
Es gibt auch die Möglichkeit, Tastenkombinationen für dieses Makro hinzuzufügen - Sie müssen keine Schaltflächen an einer beliebigen Stelle hinzufügen.