gibt es jemanden der mir hier weiterhelfen kann? :-)
Anfrage vom 07.02.2020
VBA-Code oder Formel Tabellenblätter zusammen führen - Matthias 07.02.2020 12:23:31
Viele Grüße
Matthias
Sub Tabellenblätter_zusammenfassen()
Sheets(1).Select
Rows("15:10000").Select
Selection.ClearContents
Sheets(2).Range("a1:b100").Copy Destination:=Sheets(1).Range("a15")
letztezeile = Sheets(1).Cells(65536, 1).End(xlUp).Row
Sheets(3).Range("a1:b100").Copy Destination:=Sheets(1).Cells(letztezeile + 1, 1)
letztezeile = Sheets(1).Cells(65536, 1).End(xlUp).Row
Sheets(4).Range("a1:b100").Copy Destination:=Sheets(1).Cells(letztezeile + 1, 1)
End Sub
Muß halt für alle Tabellenblätter wiederholt werden.
ThisWorkbook.Worksheets.Count
durch die Zahl des letzten zu kopierenden Blattes.
Option Explicit
Sub Tabellenblätter_zusammenfassen()
Dim i As Long
With Sheets(1)
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
Rows("15:" & letztezeile).ClearContents
Sheets(2).Range("a1:b100").Copy Destination:=.Range("a15")
For i = 3 To ThisWorkbook.Worksheets.Count
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
Sheets(i).Range("a1:b100").Copy Destination:=.Cells(letztezeile + 1, 1)
Next
End Sub
Option Explicit
Sub Tabellenblätter_zusammenfassen()
Dim i As Long, letztezeile as long
With Sheets(1)
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
Rows("15:" & letztezeile).ClearContents
Sheets(2).Range("a1:b100").Copy Destination:=.Range("a15")
For i = 3 To ThisWorkbook.Worksheets.Count
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
Sheets(i).Range("a1:b100").Copy Destination:=.Cells(letztezeile + 1, 1)
Next
End Sub
Option Explicit
Sub Tabellenblätter_zusammenfassen()
Dim i As Long, letztezeile As Long
With Sheets(1)
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
Rows("15:" & letztezeile).ClearContents
Sheets(2).Range("a1:b100").Copy Destination:=.Range("a15")
For i = 3 To ThisWorkbook.Worksheets.Count
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
Sheets(i).Range("a1:b100").Copy Destination:=.Cells(letztezeile + 1, 1)
Next
End With
End Sub