Makro schreiben für eine Auswertung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Michael,
diese Anfrage haben wir hier laufend ;-). Folgender Code durchläuft das angegebene Verzeichnis (nach allen .xls*-Dateien) und kopiert die Zell-Werte von A12, B12, D12, U12, V12 des jeweiligen Quell-Blattes in das angegebene Zielblatt jener Mappe, aus der das Makro aufgerufen wird. Wo Du anpassen musst, ist im Code gekennzeichnet.

Sub a()
'---- Anpassen ab hier ----
Const DEINORDNER$ = "C:\Verzeichnis\Ordner\"
Const QUELLBLATT$ = "Tabelle1"
Const QUELLBEREICH$ = "A12, B12, D12, U12, V12"
Const ZIELBLATT$ = "Tabelle1"
'---- Ende ----
Dim WbZ As Workbook: Set WbZ = ThisWorkbook
Dim WsZ As Worksheet: Set WsZ = WbZ.Worksheets(ZIELBLATT)
Dim WbQ As Workbook, WsQ As Worksheet
Dim Pfad$, Datei$
Application.ScreenUpdating = False
Pfad = IIf(Right(DEINORDNER, 1) = "\", DEINORDNER, DEINORDNER & "\")
Datei = Dir(Pfad & "*.xls*", vbDirectory)
Do Until Datei = ""
If Not Datei = WbZ.Name Then
Set WbQ = Workbooks.Open(Pfad & Datei)
Set WsQ = WbQ.Worksheets(QUELLBLATT)
WsQ.Range(QUELLBEREICH).Copy
WsZ.Cells(WsZ.Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial _
xlPasteValuesAndNumberFormats
WbQ.Close False
Set WbQ = Nothing: Set WsQ = Nothing
End If
Datei = Dir
Loop
Set WbZ = Nothing: Set WsZ = Nothing
End Sub

Kommst Du damit zurecht, oder brauchst Du noch Infos?
LG
Michael

ist die Folgende:
Du kopierst meinen Code, in einer neuen Arbeitsmappe (oder auch einer bestehenden) öffnest Du mit Alt + F11 die VBA-Umgebung, fügst über Einfügen - Modul ein allgemeines Modul ein und in das sich öffnende weiße Eingabefeld fügst Du meinen Code ein.
Das Makro steht Dir dann zum Aufrufen in Excel zB in der Menüleiste unter Ansicht - Makros zur Verfügung; im Dialog einfach das Makro auswählen und auf Ausführen klicken.
Wie Du richtig erkannt hast musst Du den Quell-Pfad, sowie den Namen des Quell-Blattes (Achtung: Makro geht davon aus, dass dieses Blatt in allen Quell-Dateien vorhanden ist und gleich heißt!), den Quellbereich (sprich die Quell-Zellen, hab ich aber bereits von Dir übernommen), und den Namen des Ziel-Blattes entsprechend Deiner Verhältnisse ändern. Wenn Dein Ziel-Blatt zB "Übersicht" heißen soll, dann benenne es um, und ändere das entsprechend im Code.
Und dann löse mal aus und gib Bescheid, ob alles so klappt, wie gewünscht...
LG
Michael

Beliebteste Forumthreads (12 Monate)

Makro schreiben für eine Auswertung

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro schreiben für eine Auswertung

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread