Hallo !
Ich habe das unten angeführt Makro zusammengestopelt. Es ging ohne den Fett markierten Bereich- Ich wollte jedoch, das das Makro ein neues Tabellenblatt anlegt und dann erst die Zeilen dort hineinkopiert. Nun, es kommen Fehler.
Bitte, was ist falsch an dem Code
Danke chris58


Sub kopierezeilen1()

Set neu = Worksheets.Add(before:=Sheets(1))
neu.Name = "Auflistung"
For Each wks In ThisWorkbook.Sheets
If wks.Name > neu.Name Then
End If

Range("A23:R65000").Copy 'markiert und Kopiert die angegebenen Zellen
Sheets("Auflistung").Select 'wechselt ins angegebene Tabellenblatt
Range("A3").PasteSpecial 'fügt die kopierten Werte ein
Sheets("Auflistung").Select 'wechselt ins angegebene Tabellenblatt
Range("A1").Select 'markiert angegebene Zelle

Next

End Sub