ich benötige Hilfe bei folgendem Problem:
Ich möchte aus einer Arbeitsmappe "alt" jedes 2. Tabellenblatt in eine leere (bestehende) Arbeitsmappe "neu" kopieren.
Die "Zusammenfassung" funktioniert bereits, jedoch nur in der Mappe "alt"
Ich möchte das Makro aus der Mappe "neu" aufrufen und dort auch die Inhalte Speichern.
Alte Inhalte löschen.
Weiter sollen jeweils zu Beginn der Daten der Name des Tabellenblattes aus "alt" erscheinen, sonst verliere ich den Überblick.
Was ich bis jetzt habe:
Sub zusammenfassen()
Dim Zeile&, letzteZ&
'Auswertungsblatt einfügen
With Worksheets.Add
.Name = "Zusammenfassung"
.Move Before:=Worksheets(1)
.Range("A1:F1") = Sheets(2).Range("A1:F1")
End With
'Von Blatt 2 bis letzem Blatt zusammenfassen
For i = 2 To Worksheets.Count Step 2
With Worksheets(i)
letzteZ = .Cells(Rows.Count, 2).End(xlUp).Row
Zeile = Worksheets("Zusammenfassung").Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range(.Cells(1, 1), .Cells(letzteZ, 24)).Copy _
Worksheets("Zusammenfassung").Cells(Zeile, 1)
End With
Next
End Sub
Wie muss der Text ergänzt werden?Vielen Dank
Jürgen
PS: der Text ist hier aus dem Forum