hatte diese Woche schon eine Frage gestellt bzgl. Excel Dateien automatisiert mit Bordmitteln zusammenfassen, hab auch schon ewig im Netz gesucht.
Nun bin ich im Forum auf ein Makro gestoßen und hab das auch ausprobiert. Nur weiß ich mangels VB Kentnissen, nicht wie ich es auf meine Bedürfnisse anpassen kann. Bitte um Hilfe.
Folgende Situation:
Habe eine Excel Tabelle mit über 30 Tabellenblätter, die wiederum jeweils mit einer ExcelDatei verknüpft sind.
Die Tabellenblätter haben ALLE die gleiche Überschriften und sind gleich groß: von Spalte A bis X und Zeile 2 bis 500
Das Makro soll nun hergehen und ein neues Tabellenblatt erstellen, in dem alle Tabellenblätter aufgeführt sind.
Das Makro, dass ich bei euch im Forum gefunden habe, macht das zwar, nur überschreibt es mir immer den Inhalt der ersten Zeilen und fügt nichts neues ein ...:
Wo liegt der Fehler, hab leider keine VB Kentnisse...
Sub zusammenfassen()
Dim Zeile&, letzteZ&
'Auswertungsblatt einfügen
Worksheets.Add.Name = "Zusammenfassung"
ActiveSheet.Move Before:=Worksheets(1)
'Von Blatt 1 bis Blatt 10 zusammenfassen
For i = 2 To Worksheets.Count
With Worksheets(i)
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row
Zeile = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A2:S200").Copy Worksheets("Zusammenfassung").Range("A2:S200")
End With
Next
End Sub