Ich habe folgendes Problem und wäre über eure Hilfe sehr dankbar. Ich habe mehrere Tabellenbläter in einer Excel Liste. Die Tabellenblätter haben alle unterschiedliche Inhalte.
Nun möchte ich, dass alle Inhalte des Blattes markiert werden und in eine neue Excel Liste untereinander eingefügt werden.
Ich habe hiefür schon folgenden Code gefunden:
Sub kopieren()
Dim i As Integer
Dim iZeilen As Integer
iZeilen = Worksheets(1).UsedRange.Rows.Count
For i = 2 To Worksheets.Count
Worksheets(i).UsedRange.Copy Worksheets(1).Cells(iZeilen, 1)
iZeilen = iZeilen + Worksheets(i).UsedRange.Rows.Count + 1
Next
End Sub
Leider kann ich mit diesem Code die Daten nicht in einen neue Mappe schreiben. Es wäre schön, wenn das jemand umschreiben könnte. Oder mir ein anderes Programm schreiben könnte. Danke schon mal im voraus.