VBA - Bereich in alle Mappen des Ordners kopieren

Forumthread: VBA - Bereich in alle Mappen des Ordners kopieren

12.12.2016 13:33:58

Fred

Guten Tag Excel Experten,
ich werte z.Z. Fußball-Ligen nach eigener ELO-Berechnung aus. Die Basis steht und es geht nun darum, Spieltage bzw. Spielpaarungen rückwirkend als auch für die in Zukunft terminierten Spiele, einzutragen. Das ist eine Menge Kopiererei und getippe,- entsprechend fehleranfällig.
Jede meiner 22 Ligen hat jeweils 20 Excel-Dateien. Was bei allen Mappen identisch ist, sind die Blattnamen und die Position der Spielpaarungen.
Mein Anliegen:
Ich würde als Beispiel gerne von meiner ausgehenden Mappe Center / Blattname: Spiele / den Bereich: A2:F10 in alle Mappen des gleichen Ordners kopieren. Ziel in jeder Mappe wäre z.B. Blattname: Spiel1 / Zelle: L7. Es sind durchweg .xlsm Dateien.
PS: Die Mappe "Center" könnte ich auch im übergeordneten Ordner Ordner positionieren.
Bekommt dies von den VBA-Experten jemand hin?
Gruß
Fred

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Bereich in alle Mappen des Ordners kopieren

12.12.2016 15:47:55

Michael
Danke Michael (migre)

12.12.2016 16:14:34

Fred
Aber bitte, kein Thema! lg und owT

12.12.2016 16:50:15

Michael

AW: VBA - Bereich in alle Mappen des Ordners kopieren

12.12.2016 15:47:55

Michael

Hallo!
zB so:

Sub a()
'---- Anpassen ----
Const QUELL_BLATT As String = "Spiele"
Const QUELL_BEREICH As String = "A2:F10"
Const ZIEL_BLATT As String = "Spiel1"
Const ZIEL_ZELLE As String = "L7"
Const DATEI_TYP As String = "*.xlsm"
'---- Ende ----
Dim WbQ As Workbook: Set WbQ = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = WbQ.Worksheets(QUELL_BLATT)
Dim Mappe As String, Pfad As String, WbZ As Workbook
Pfad = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Mappe = Dir(Pfad & DATEI_TYP)
Do While Mappe  vbNullString
If Not Mappe = WbQ.Name Then
Set WbZ = Workbooks.Open(Pfad & Mappe)
With WbZ
WsQ.Range(QUELL_BEREICH).Copy Destination:= _
.Worksheets(ZIEL_BLATT).Range(ZIEL_ZELLE)
Application.CutCopyMode = False
.Close True
Set WbZ = Nothing
End With
End If
Mappe = Dir
Loop
End Sub

Dieser Code muss in ein allgemeines Modul in Deiner Quell-Mappe ("Center") - die Datei kann (muss) in diesem Fall im gleichen Verzeichnis wie die Ziel-Mappen liegen.
Passt?
LG
Michael

Danke Michael (migre)

12.12.2016 16:14:34

Fred

Hallo Michael,
dein Code funzt bei "Center Mappe" wenn im gleichen Verzeichnis als auch im übergeordneten (Pfad angepasst).
Dies VBA nimmt mir sehr viel Arbeit ab und ist im Ergebnis entscheidend fehlerfreier als mein bisheriges getippe.
Danke für die Mühe und kompetente Unterstützung, Michael!
mfG
Fred

Aber bitte, kein Thema! lg und owT

12.12.2016 16:50:15

Michael

Beliebteste Forumthreads (12 Monate)

VBA - Bereich in alle Mappen des Ordners kopieren

Forumthread: VBA - Bereich in alle Mappen des Ordners kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread