Blätter vereinen

Forumthread: Blätter vereinen

Blätter vereinen

04.07.2005 16:55:17

niki

Hallo forum,
Gibt es eine Möglichkeit, alle blätter einer Mappe (bzw. deren Inhalt in zeilen) in einem blatt zusammenzufassen, ohne jedes einzelne zu kopieren und in einem blatt einzufügen?
Dankeschön!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Blätter vereinen

04.07.2005 17:21:30

UweD

AW: Blätter vereinen

04.07.2005 17:21:30

UweD

Hallo
so klappt es:


Sub xToOne()
Dim SH, I%, Anz%, RR%
On Error Resume Next
Anz = ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets.Add after:=Sheets(Anz)
ActiveSheet.Name = "Zusammenfassung"
Set SH = Sheets(Anz + 1)
For I = 1 To Anz
RR = SH.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
Sheets(I).UsedRange.Copy Cells(RR + 1, 1)
Next I
End Sub

Gruß Uwe

Forumthread: Blätter vereinen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread