Tabellenkonsolidierung anpassen
02.03.2015 18:53:24
Basti
ich habe diesen Code gefunden, der mir den gesamten Inhalte aller Tabellenblätter in einen neuen Tabellenblatt konsolidiert. Code funktioniert, aber ich hätte gerne eine Anpassung, die ich leider nicht ohne Eure Hilfe hinbekomme.
Aktuell schreibt das Programm den Namen des jeweiligen Tabellenblattes in die Spalte A. Ich hätte gerne, dass das am Ende der gefunden Daten erfolgt.
Gruß
Basti
Sub Tabellenkonsolidierung()
Dim wks As Worksheet
Dim wksK As Worksheet
Dim lngLetzteZeileKons As Long
Dim lngAbZeile As Long
Application.DisplayAlerts = False
On Error Resume Next
Set wksK = ActiveWorkbook.Worksheets
wksK.Delete
On Error GoTo 0
Set wksK = Worksheets.Add(Before:=ActiveWorkbook.Sheets(1))
wksK.Name = "Tabellenkonsolidierung"
lngLetzteZeileKons = 0
For Each wks In ActiveWorkbook.Worksheets
If wks.Name wksK.Name Then
lngAbZeile = lngLetzteZeileKons + 1
wks.Range(wks.Cells(1, 1), wks.Cells(wks.Cells.SpecialCells(xlCellTypeLastCell).Row, 254)). _
Copy _
Destination:=wksK.Cells(lngAbZeile, 2)
lngLetzteZeileKons = wksK.Cells.Find(What:="*", _
After:=wksK.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
wksK.Range(wksK.Cells(lngAbZeile, 1), wksK.Cells(lngLetzteZeileKons, 1)) = wks.Name
End If
Next
Application.DisplayAlerts = True
End Sub