Sprich alle auflisten wo M1,6 vor kommt und dann die ganzen Zeilen.
Um in deiner Code-Welt zu bleiben, versuche es so
For n = 1 To x - 1
.Cells(n + 7, 9) = xTabelle(n)
'
With Sheets(xTabelle(n))
Set C = .Range(Adresse(n))
Set Bereich = .Range(.Cells(C.Row, 1), .Cells(C.Row, .Columns.Count).End(xlToLeft))
Bereich.Copy ActiveSheet.Cells(n + 7, 10)
End With
Next n
Obwohl es sicher einfacher auch geht. In jedem Fall solltest du:
Wenn schon Dim - Statements, dann ALLE Variablen (und wenn geht auch zeitgemäß)
Beim Durchlauf
For n = 1 To Sheets.Count
stolpert der Code auch durch das "jetzt vorhandene", leere "Startseite"
Egal - es läuft!
|