ich versuche gerade eine Tabelle ( oder besser Matrix ) auszurollen.
Da es sehr schwierig ist dies zu erklären, habe ich mit Hilfe des Rekorders das Makro aufgezeichnet und den Ausgangszustand sowie das Wunschergebnis ins Beispiel
aufgezeichnet.
Das Problem ist, die Parameter, Anzahl der Reihen und die Anzahl der Wiederholungen Flexibel sein müssten.
Am besten wäre eine Msgbox die vor der Ausführung diese Parameter abfragt.
https://www.herber.de/bbs/user/150701.xlsm
anbei meine Aufzeichnung
Sub ausrollen()
' Makro1 Makro
Sheets("ausgerollt").Activate
Sheets("Original").Select
Range("A3:G17").Select
Selection.Copy
Sheets("ausgerollt").Select
ActiveSheet.Paste
Selection.Copy
Sheets("ausgerollt").Select
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A6:G8").Select
Selection.Copy
Range("H3").Select
ActiveSheet.Paste
Range("A9:G11").Select
Application.CutCopyMode = False
Selection.Copy
Range("O3").Select
ActiveSheet.Paste
Range("A12:G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("V3").Select
ActiveSheet.Paste
Range("A15:G17").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC3").Select
ActiveSheet.Paste
Range("A9:G11").Select
Application.CutCopyMode = False
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
Range("A12:G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("O6").Select
ActiveSheet.Paste
Range("A15:G17").Select
Application.CutCopyMode = False
Selection.Copy
Range("V6").Select
ActiveSheet.Paste
Range("A3:G5").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC6").Select
ActiveSheet.Paste
Range("A12:G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("H9").Select
ActiveSheet.Paste
Range("A15:G17").Select
Application.CutCopyMode = False
Selection.Copy
Range("O9").Select
ActiveSheet.Paste
Range("A3:G5").Select
Application.CutCopyMode = False
Selection.Copy
Range("V9").Select
ActiveSheet.Paste
Range("A6:G8").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC9").Select
ActiveSheet.Paste
Range("A15:G17").Select
Application.CutCopyMode = False
Selection.Copy
Range("H12").Select
ActiveSheet.Paste
Range("A3:G5").Select
Application.CutCopyMode = False
Selection.Copy
Range("O12").Select
ActiveSheet.Paste
Range("A6:G8").Select
Application.CutCopyMode = False
Selection.Copy
Range("V12").Select
ActiveSheet.Paste
Range("A9:G11").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC12").Select
ActiveSheet.Paste
Range("A3:G5").Select
Application.CutCopyMode = False
Selection.Copy
Range("H15").Select
ActiveSheet.Paste
Range("A6:G8").Select
Application.CutCopyMode = False
Selection.Copy
Range("O15").Select
ActiveSheet.Paste
Range("A9:G11").Select
Application.CutCopyMode = False
Selection.Copy
Range("V15").Select
ActiveSheet.Paste
Range("A12:G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC15").Select
ActiveSheet.Paste
Range("A3:AI17").Select
Selection.Copy
Range("AJ3").Select
ActiveSheet.Paste
End Sub
kann mir jemand dabei behilflich sein?habt schon mal rechtvielen dank für euer interesse.
mfg thomas