Nicht alle Tabellenblätter zusammenführen
27.01.2018 10:59:33
parza
im Internet habe ich eine Programmierung gefunden, die für mich bis auf eine Kleinigkeit (?) perfekt funktio-niert:
In meiner Tabelle sind alle Registerkarten gleich aufgebaut, bis auf drei, in denen sich zusätzlichen Daten und Berechnungen befinden und ich in der Zusammenführung nicht brauche.
Gibt es eine Möglichkeit, die Programmierung so zu ändern, dass diese Tabellenblätter (Tabelle11, Tabelle12, Tabelle13) beim Zusammenführen ausgelassen werden.
Danke, parza
Sub KonsolidiereMal()
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("Konsolidierung")
wksK.Delete
On Error GoTo 0
Set wksK = Worksheets.Add(Before:=ActiveWorkbook.Sheets(1))
wksK.Name = "Konsolidierung"
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
Anzeige