Hallo,
Markieren, Kontextmenü kopieren, Klicken auf Zelle, Inhalte Einfügen, Häkchen bei "Transponieren" setzen bringt als VBA-Code:
Application.CutCopyMode = False
Selection.Copy
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=TrueJa. Dann hast Du ja Deine Antwort. Oder nicht?!
Gruß
jobo