VBA aus mehreren Blätter eine Gesamtansicht machen
30.07.2014 10:57:43
Dominik
habe folgendes Problem und bisher leider nichts passendes gefunden...
Ich möchte aus meinen Tabellenblättern eine Gesamtansicht machen.
Folgenden Code habe ich bereits gefunden und er macht diese Aufgabe sehr gut!
Aber wie müsste ich ihn ändern, wenn z.b. das Tabellenblatt "Auswertung" nicht in diese Gesamtansicht soll?
Vielen Dank!
Gruß, Dominik
Sub KonsolidiereMalbackup()
Dim Wks As Worksheet
Dim VW 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 + 2
Wks.Range(Wks.Cells(4, 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