Office: Zusammenfassung von Tabellen

Eriador · 23. Dezember 2011

Hallo Office Forum,

Ich möchte gerne Wissen ob der Code von Jinx vom 09.05.2002, 07:52 auf mein aktuelles sheet angepasst werden kann. Möchte gerne diese Funktion Optimieren.

Hier der momentane Code der Exceltabelle.

Code:

Sub Arbeitsblätter_konsolidieren()
'
' Arbeitsblätter_konsolidieren Makro
' Makro am 31.03.2011 aufgezeichnet
'
Application.ScreenUpdating = False

' Daten in "Gesamt 1-7" löschen
Sheets("Gesamt 1-7").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear

' Daten aus "1.xxx" Airport kopieren
Sheets("1.xxx Airport").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Gesamt 1-7").Select
Range("A2").Select
ActiveSheet.Paste
Cells(1, 1).End(xlDown).Offset(1, 0).Select

' Daten aus "2.xxx" KEP kopieren
Sheets("2.xxx KEP").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesamt 1-7").Select
ActiveSheet.Paste
Cells(1, 1).End(xlDown).Offset(1, 0).Select

' Daten aus "3.xxx" Lager-Förderer kopieren
Sheets("3.xxx Lager-Förderer").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesamt 1-7").Select
ActiveSheet.Paste
Cells(1, 1).End(xlDown).Offset(1, 0).Select

' Daten aus "4.xxx" sonstige kopieren
Sheets("4.xxx sonstige").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesamt 1-7").Select
ActiveSheet.Paste
Cells(1, 1).End(xlDown).Offset(1, 0).Select

' Daten aus "5.xxx" nicht BMA kopieren
Sheets("5.xxx nicht BMA").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesamt 1-7").Select
ActiveSheet.Paste
Cells(1, 1).End(xlDown).Offset(1, 0).Select

'Daten aus "6.xxx" BMA kopieren
Sheets("6.xxx BMA").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesamt 1-7").Select
ActiveSheet.Paste
Cells(1, 1).End(xlDown).Offset(1, 0).Select

' Daten aus "7.xxx" Vision kopieren
Sheets("7.xxx Vision").Select
Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Gesamt 1-7").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(1, 1).End(xlDown).Offset(1, 0).Select

' Zurück zum Auswahlblatt Kriterienfilter
Sheets("Kriterienfilter").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht kann mir jemand dazu Helfen.
Zur Anordnung der Tabellenblätter:
1. Ergebnisblatt mit Suchfunktion anzeige Suchergebnisse
2. Diagramm
3. Zusammenfassung der sheets wie oben im code beschrieben
alle Weiteren wie oben aufgeführt sind die Datenblätter.

Viele Grüße
Marco

Office: Zusammenfassung von Tabellen

Zusammenfassung von Tabellen

Zusammenfassung von Tabellen

Zusammenfassung von Tabellen - Similar Threads - Zusammenfassung Tabellen

Zusammenfassen von Tabellen

Mehrere Tabellen in einer zusammenfassen

mehrere Tabellen als Pivottabelle zusammenfassen - Beziehung erstellen

Mehrere Tabellen in einer zusammenfassen

Power Pivot: mehrere Tabellen mit gleichen Spaltenbeschriftungen zusammenfassen

VBA Verschlankung. Zusammenfassung von mehreren intelligenten Tabellen

Tabellen/ Abfragen zusammenführen bzw. anreichern