Hallo Zusammen, Ich habe erst gestern begonnen zu versuchen mich ein wenig in Makro einzuarbeiten hab dementsprechend nicht allzu viel Ahnung. . Ich habe in meiner Tabelle Statistiken zu der Kursentwicklung mehrerer Aktien, Also z.B. 1 Aktie, 1. Spalte: Datum, 2.Spalte: Kurs zu diesem Datum usw. Ab Spalte Q beginnt das gleiche dann für Aktie 2, ab Spalte AG dann Aktie 3 usw. Jetzt will ich dass diese Daten untereinander stehen. Also dass unter den Daten von Aktie 1 eine Zeile freigelassen wird und dann die Daten von Aktie 2 kommen. Ich muss dazu also für Aktie 2 die Spalten Q-AF und die Zeilen 1-89 kopieren und das ganze einfügen in Zelle A91. Ich hab mal bissel rumprobiert und habe mir dieses Makro zusammengeschustert: Sub neu()

'** Ermittlung der letzten Spalte in Zeile 1 ls = Cells(1, Columns.Count).End(xlToLeft).Columns.Column '** Durchlauf aller Zeilen Dim s As Integer For s = ls To 1 Step -1 'Zählung rückwärts bis Spalte 1 '** Abfragen, ob in der ersten Spalte Datum steht If Cells(1, s).Value = "Date" Then '** Wenn Datum steht dann soll die Range ab Datum 90 Zeilen nach unten und 17 Spalten nach rechts kopiert werden Range(Cell(1, s), Cell(90, s & 17)).Select

Selection.Copy

Range("A65536").End(xlUp).Paste End If

Next s End Sub

Leider funktioniert das so offensichtlich nicht. Würde mich freuen, wenn mir jemand helfen könnte. Danke schonmal im Voraus