Hallo zusammen,
Ich habe ab Zeile A10 bis X10 eine Kopfzeile von einer Tabelle.
Die Kopfzeile hat mehrere Zeilen A10-X14.
Die Daten gehen dan von A15 bis X 100.
Ich möchte nun die Daten stapel und bei jeder Zeile (A15 bis X100) den Kopfzeilenbereich mit kopieren.
Ich habe ein Marko gefunden welches "nur" alles unteranderstapelt aber nicht die Koptfzeile wiederholt mit kopiert.
Könntet Ihr das Marko anpassen oder gibt es eine andere Möglichkeit.
Sub ConvertRangeToColumn()
'Updateby20131126
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
LG
Lemmy