Makro zur Verschiebung von Zellen

[tobipale]

Hi zusammen,

Ich versuche gerade eine makro aufzunehmen bzw.  zu schreiben. Da ich auf diesem Gebiet noch unerfahren bin wäre es cool wenn ihr mir helfen könntet.

Die Ausgangssituation ist: Ich habe eine Tabelle in der senkrecht nach unten Zahlen verlaufen. Diese Zahlen sollen nicht nach unten verlaufen, sondern nach rechts.

Ich habe diese Makro aufgenommen.


Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+s
'
    Selection.Cut
    Range("C2").Select
    ActiveSheet.Paste
    Range("B4").Select
    Selection.Cut
    Range("D2").Select
    ActiveSheet.Paste
End Sub


Wie packe ich das ganze in eine Schleife, sodass der Vorgang immer wieder für die nächsten Zellen wiederholt wird?
Danke für eure Hilfe!!!

Schöne Grüße

Tobias

  Mappe1.xlsx (Größe: 9,79 KB / Downloads: 1)

[IchBinIch]

Hallo,

dafür bedarf es nicht zwingend eines Macros.

Markiere den Bereich, den Du kopieren willst (z.B. C3 - C46).
Kopiere die Werte. Klicke in Deine Zielzelle und wähle im Register "Start" unter "Einfügen" die Option "Transponieren".

   

Gruß
Ich