Makro zum Konsolideren mehrer Tabellenblätter
23.02.2015 09:57:29
Chris
ich habe lange in den Beiträgen gelesen aber leider keine komplette Lösung für mein Vorhaben gefunden.
Hauptquelle:
https://www.herber.de/forum/archiv/1172to1176/1172091_Tabellenblaetter_zusammenfuehren_VBA.html
Was möchte ich machen?
Ich habe eine Datei mit mehreren Tabellenblätter. Wenn ich auf das Tabellenblatt "Gesamt" gehe, wird der Inhalt von "Gesamt" gelöscht und der Inhalt aller anderen Tabellenblätter in "Gesamt" übertragen
Was möchte ich noch?
# Nicht alle Blätter sollen konsolidiert werden. Es gibt zwei welche nicht konsolidiert werden sollen. Die übrigen Tabellenblätter sollen immer konsolidiert werden
# Blattschutz auf dem Tabellenblatt "Gesamt"
# geöffnete Filter sollen wieder geschlossen werden bzw. Lösung das auch gefilterte Inhalte in die Zusammenfassung übertragen werden
Hier mein aktueller Code:
Private Sub Worksheet_Activate()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
If Ws.FilterMode Then
Ws.ShowAllData
End If
Next Ws
Me.Rows("2:" & Rows.Count).Clear
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name "Gesamt" Then
Ws.Rows("2:" & Ws.Cells.Find("*", searchdirection:=xlPrevious).Row).Copy Me.Range("A" & _
_
_
_
_
Me.Cells.Find("*", searchdirection:=xlPrevious).Row + 1)
End If
Next Ws
End Sub
Es wäre klasse wen ihr mir für die gewünschten Erweiterungen helfen könntet.
Viele Grüße
Chris