mehrere tabellenblätter zusammenführen
22.11.2015 14:16:30
John
in dieser werden per Makro die jeweils ersten Blätter kopiert und ein eingefügt!
Auf den Blättern befindet sich jeweils eine Rechnung
David
18.05.2015 Rechnungstext 60,-
20.06.2015 Rechnungstext 80,-
Auf dem nächsten Blatt steht dann in den gleichen Spalten
Bernhard
30.07.2015 Rechnungstext 80,-
01.08.2015 Rechnungstext 80,-
02.08.2015 Rechnungstext 60,-
Nun möchte ich diese ($variable anzahl) Blätter gerne auf einer Liste zusammenführen!
Neues Blatt (Übersicht)
18.05.2015 David Rechnungstext 60,-
20.06.2015 David Rechnungstext 80,-
30.07.2015 Bernhard Rechnungstext 80,-
01.08.2015 Bernhard Rechnungstext 80,-
02.08.2015 Bernhard Rechnungstext 60,-
Mit Indirekt geht es nicht! Da die Werte ja in der gleichen Zeile stehen!?
Datenkonsolidierung anscheind auch nicht, da bei jedem "Aktualisieren" der Mappe ich die Daten neu aufbereiten müsste!?
Hat jemand eine Idee wie man das am besten machen könnte?
Hier mal mein Makro welches ich nicht auf weitere Blätter hinbekomme :(
Sub Makro2()
' Makro2 Makro
Sheets("RE1").Select
Range("Tabelle3").Select
Selection.Copy
Sheets("Gesamt").Select
Range("A1").Select
ActiveSheet.Paste Link:=True
ActiveWindow.SmallScroll Down:=-60
Sheets("Gesamt").Select
ActiveWindow.SmallScroll Down:=-18
Columns("B:B").Select
Application.CutCopyMode = False
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Columns("D:D").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Sheets("Gesamt").Select
Columns("E:E").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Columns("F:F").Select
Selection.NumberFormat = "#,##0.00 _"
Columns("G:G").Select
Sheets("Gesamt").Select
Columns("H:H").Select
Selection.NumberFormat = "00000"
Columns("G:G").Select
Selection.NumberFormat = "@"
Range("H20").Select
ActiveWindow.SmallScroll Down:=-63
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
End Sub
Sheets("RE1").Select
RE sind die Blätter und werden Hochgezählt, hier weiss ich aber nicht wie ich dann auf die restlichen zugreifen kann!
grüsse John