AW: Tabellenblatt in mehrere Dateien
06.02.2022 08:47:10
Thomas
Hallo Piet,
Danke für die wirklich tolle Datei und deine Mühe!!!
Klappt auch prinzipiell gut, aber:
Für meinen Zweck ist sie aber schon zu aufwendig, da alle auszutauschenden Datenblätter "Daten" in verschiedenen Unterordnern eines Hauptordner liegen und sich das nicht verändert.
Ich habe unten stehendes Makro, mit dem ich mit vorher aus diesen Dateien aus den Blättern "Daten" alles kopiere und dabei werden mit den Pfaden alle Dateien angesprochen. Da brauche ich nichts mehr anklicken oder eingeben
Kann man das nicht auch für das Tauschen der Datenblätter in dieser Art umbauen? Also dass das Kopiern des Blattes "Daten" aus der Quelldatei ohne Klicken automatisch durch die fixe Vorgabe in diese Dateien geschieht?
Sub Datensammelung_UV()
Dim Dateien(1 To 26) As String
Dim WB As Workbook
Dim i As Long
Dateien(1) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Barta Manfred\UV AXM Barta V3.0.xlsb"
Dateien(2) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Buchinger Ernst\UV AXM Buchinger V3.0.xlsb"
Dateien(3) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Drescher Hermann\UV AXM Drescher V3.0.xlsb"
Dateien(4) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Driessler Thomas\UV AXM Driessler V3.0.xlsb"
Dateien(5) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Floimayr Markus\UV AXM Floimayr V3.0.xlsb"
Dateien(6) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Frankford Christian\UV AXM Frankford V3.0.xlsb"
Dateien(7) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Fuith Karl\UV AXM Fuith V3.0.xlsb"
Dateien(8) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Gietl Robert\UV AXM Gietl V3.0.xlsb"
Dateien(9) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Giselbrecht Rainer\UV AXM Giselbrecht V3.0.xlsb"
Dateien(10) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Graf Andereas\UV AXM Graf V3.0.xlsb"
Dateien(11) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Jagesberger Ewald\UV AXM Jagesberger V3.0.xlsb"
Dateien(12) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Köck Gunter\UV AXM Köck V3.0.xlsb"
Dateien(13) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Kos Jochen\UV AXM Kos V3.0.xlsb"
Dateien(14) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Krippl Thorsten\UV AXM Krippl V3.0.xlsb"
Dateien(15) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Leyerer Sam\UV AXM Leyerer V3.0.xlsb"
Dateien(16) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Mayr Matthias\UV AXM Mayr V3.0.xlsb"
Dateien(17) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Melchior Rene\UV AXM Melchior V3.0.xlsb"
Dateien(18) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Mitterberger Richard\UV AXM Mitterberger V3.0.xlsb"
Dateien(19) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Schmidt Anton\UV AXM Schmidt V3.0.xlsb"
Dateien(20) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Schoberwalter Christian\UV AXM Schoberwalter V3.0.xlsb"
Dateien(21) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Schwarzkogler Gotti\UV AXM Schwarzkogler V3.0.xlsb"
Dateien(22) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Spari Damian\UV AXM Spari V3.0.xlsb"
Dateien(23) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Stadlmann Sabine\UV AXM Stadlmann V3.0.xlsb"
Dateien(24) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Strajhar Ursula\UV AXM Strajhar V3.0.xlsb"
Dateien(25) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Unterweger Angela\UV AXM Unterweger V3.0.xlsb"
Dateien(26) = "X:\VER\DAT\Listen\Offertedatenbank\AXM_FKS\Wurzenberger Sphia\UV AXM Wurzenberger V3.0.xlsb"
With ThisWorkbook.Sheets("UV Datenbasis")
For i = LBound(Dateien) To UBound(Dateien)
Set WB = Workbooks.Open(Dateien(i))
WB.Sheets("Daten").UsedRange.Offset(-(i = 1), 0).Copy
.Cells(.Rows.Count, 1).End(xlUp).Offset(-(i 1), 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
WB.Close False
Next
End With
End Sub
Wenn du mir nochmals helfen könntest, wäre ich dir sehr dankbar.
LG
Thomas