Office: Makro um teile von mehreren zeilen in spalten zu verschieben

Hi,

Ich habe ein Excel Tabelle in der die Spalten F-K verschoben werden sollen angefangen bei Spalte A.

Hier mal bildlich dargestellt;)

P.S. Ich habe auch ein Excel Blatt mit angehangen.

Ausgangssituation:

A B C D E F G H I J K
2 x t
2 y usw.
2 z



8 i
8 o
8 p
8 l




3 r
3 t




Wunschsituation:)

A B C D E F G H I J K
2
2
2
x t
y usw.
z
8
8
8
8
i
o
p
l
3
3
r
t



Danke für jede Unterstützung

 

Hallo!

An deiner Beispieldatei habe ich diesen Code erfolgreich getestet. Er gehört ins Modul des Tabellenblatts.

Code:

Sub test()
Dim Zeile As Integer
Dim Höhe As Integer
Dim Ende As Integer
Ende = Range("A65536").End(xlUp).Row
Zeile = 2
Do Until Zeile > Ende
  Do Until Cells(Zeile, 1) = ""
    Zeile = Zeile + 1
  Loop
  Höhe = Range("F2").End(xlDown).CurrentRegion.Rows.Count
  Range("F2").End(xlDown).CurrentRegion.Resize(, 5).Copy
  Range(Cells(Zeile, 1), Cells(Zeile + Höhe - 1, 5)).PasteSpecial xlPasteAll
  Range("F2").End(xlDown).CurrentRegion.Resize(, 5).Clear
  Zeile = Zeile + Höhe + 1
Loop
End Sub

 

Funktioniert super tausend dank!!!!!!

:lol: :lol: :lol: