Supportnet / Forum / Tabellenkalkulation
Makro mehrere Tabellen zusammenfügen.
Frage
Ich habe über 100 Exel Dateien. Aus den will ich die Daten aus einem bestimmten Tabellenblatt rauskopieren und eine Datei machen.
Wie kann ich das mit Makro machen. Die Datensätze sind unterschiedlich groß es geht immer bis V aber in einem ist mal keine Datei drinen und in den anderen 256 Datensätze oder mehr.
Wie sieht da die Makro aus?
Vielen Dank
Ferhat
Antwort 1 von Saarbauer
Hallo
vom Grundsatz her machbar. Hat dieses Tabelenblatt einen bestimmten Namen und wie sind die Bezeichnungen der Dateien, dass man über diese beiden Angaben die Datei und das Tabellenblatt vielleicht automatisch ansteuern kann.
Die Anzahl der Datensätze dürfte kein grösseres Problem sein.
Ein Beispiel könnte was bringen.
Gruß
Helmut
vom Grundsatz her machbar. Hat dieses Tabelenblatt einen bestimmten Namen und wie sind die Bezeichnungen der Dateien, dass man über diese beiden Angaben die Datei und das Tabellenblatt vielleicht automatisch ansteuern kann.
Die Anzahl der Datensätze dürfte kein grösseres Problem sein.
Ein Beispiel könnte was bringen.
Gruß
Helmut
Antwort 2 von Fragenkatalog
Ja die Dateien haben Bezeichnungen wie "Verbund_202", "Verbund_203" usw. und die das Tabellenblatt heißt immer "Sicherheiten" es soll immer von A bis V rauskopiert werde und es kommt immer drauf an von 4 bis es keine Daten mehr gibt.
wie macht man das..
wie macht man das..
Antwort 3 von Saarbauer
Hallo,
sehr günstig, Sollen die Daten dann auf ein Blatt zusammenkopiert werden oder in der neuen Datei auf unterschiedliche Datenblätter.
Wäre es möglich ein Beispiel zu bekommen?
Teile mir mal deine Emailadresse mit erhälst dann meine.
Gruß
Helmut
sehr günstig, Sollen die Daten dann auf ein Blatt zusammenkopiert werden oder in der neuen Datei auf unterschiedliche Datenblätter.
Wäre es möglich ein Beispiel zu bekommen?
Teile mir mal deine Emailadresse mit erhälst dann meine.
Gruß
Helmut
Antwort 4 von Fragenkatalog
Meine email adresse ist ferhat.soytuerk@freenet.de
ich kann leider die orginalen nicht zuschicken aber hab so zwei Beispiel Tabellen gemacht..die sind nur bischen kleiner als das orginale. Das aus den Tabellen rauskopierte sollte in dem gleichen Ordner in einer Datei "Gesamt.xls" gespeichert werden.
Danke
ich kann leider die orginalen nicht zuschicken aber hab so zwei Beispiel Tabellen gemacht..die sind nur bischen kleiner als das orginale. Das aus den Tabellen rauskopierte sollte in dem gleichen Ordner in einer Datei "Gesamt.xls" gespeichert werden.
Danke
Antwort 5 von Saarbauer
Hallo,
damit auch alle andern die nach eine ahnlichen Lösung suchen wissen was wir gemacht haben.
For i = 202 To 203 ´Dateinummer von ... bis...
´die folgende Zeile ist den tatsächlichen Datenstandort anzupassen
Workbooks.Open Filename:= _
"D:\Test\Verbund_" & i ´Öffnen der Datei ...Verbund.....
Sheets("Sicherheiten").Select ´Wechsel auf Tabellenblatt Sicherheiten
zeile = Range("B65536").End(xlUp).Row ´suchen der letzten Zeile hier in Spalte B
Rows("3:" & zeile).Select ´markieren der Daten, ab Zeile 3
Application.CutCopyMode = False
Selection.Copy
Windows("Gesamtliste.xls").Activate ´Wechsel auf Datei Gesamtliste
Sheets("Zusammenstellung").Select ´Wechsel auf Tabellenblatt Zusammenstellung
zeile = Range("b65536").End(xlUp).Row ´suchen der letzten Zeile hier in Spalte B
Rows(zeile + 1).Select ´Wechsel in die nächste Freie zeile
ActiveSheet.Paste ´Daten übertragen
Workbooks("Verbund_" & i & ".xls").Close SaveChanges:=False ´Schliessen der Datei ...Verbund.....
Next i ´nächste Datei
End Sub
Gruß
Helmut
damit auch alle andern die nach eine ahnlichen Lösung suchen wissen was wir gemacht haben.
For i = 202 To 203 ´Dateinummer von ... bis...
´die folgende Zeile ist den tatsächlichen Datenstandort anzupassen
Workbooks.Open Filename:= _
"D:\Test\Verbund_" & i ´Öffnen der Datei ...Verbund.....
Sheets("Sicherheiten").Select ´Wechsel auf Tabellenblatt Sicherheiten
zeile = Range("B65536").End(xlUp).Row ´suchen der letzten Zeile hier in Spalte B
Rows("3:" & zeile).Select ´markieren der Daten, ab Zeile 3
Application.CutCopyMode = False
Selection.Copy
Windows("Gesamtliste.xls").Activate ´Wechsel auf Datei Gesamtliste
Sheets("Zusammenstellung").Select ´Wechsel auf Tabellenblatt Zusammenstellung
zeile = Range("b65536").End(xlUp).Row ´suchen der letzten Zeile hier in Spalte B
Rows(zeile + 1).Select ´Wechsel in die nächste Freie zeile
ActiveSheet.Paste ´Daten übertragen
Workbooks("Verbund_" & i & ".xls").Close SaveChanges:=False ´Schliessen der Datei ...Verbund.....
Next i ´nächste Datei
End Sub
Gruß
Helmut
Antwort 6 von Fragenkatalog
Vielen Dank,
Also ich muss sagen ich ziehe meinen Hut auch wenn ich keinen habe, würde ich mir einen zulegen um ihn zu ziehen..
Saarbauer ist sehr freundlich und hat mich weitergebracht..
Vielen Dank
Bin begeistert.
Fragenkatalog
Also ich muss sagen ich ziehe meinen Hut auch wenn ich keinen habe, würde ich mir einen zulegen um ihn zu ziehen..
Saarbauer ist sehr freundlich und hat mich weitergebracht..
Vielen Dank
Bin begeistert.
Fragenkatalog