ich habe folgendes Problem. Ich habe eine Arbeitsmappe mit 100 Arbeitsblättern. Auf jedem Blatt stehen 40 Datensätze (ab Zeile 3 bis Zeile 42, ab Spalte A bis Spalte Z). Ich habe jetzt die Anforderung erhalten, dass alle Datensätze in einem Arbeitsblatt als fortlaufende Liste erscheinen sollen. Mit diesem Makro klappt das aber leider nicht:
Sub ausschneiden()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Select
Range("A3").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Cut
Sheets("Seite1_1").Select
Range("A3").Select
Selection.End(xlDown).Select
Range("A43").Select
ActiveSheet.Paste
Next i
MsgBox "fertig"
End Sub
Was mache ich falsch?Gruß
Frank