Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen für alle Dateien im Verzeichnis

Forumthread: Makro ausführen für alle Dateien im Verzeichnis

Makro ausführen für alle Dateien im Verzeichnis
22.03.2006 20:50:10
Wolfgang
Liebe Forumsanhänger,
ich habe ein Makro über den Makrorecorder und das Forum gebastelt, um Dateien
aus einer älteren EDV-Anwendung zu konvertieren (immer Einzelfall - also Datei öffnen - Makro ausführen - speichern).
Auf Grund einer EDV-Umstellung wäre es ideal, ein ganzes Verzeichnis (keine Unterverzeichnisse vorhanden) abzuarbeiten.
Kann mir jemand einen Verweis auf ein Beispiel im Archiv geben ?
(habe einiges an Beiträgen gelesen - geht aber meistens darum Inhaltsverzeichnisse zu erstellen oder Daten einzulesen)
Meine Vorstellung: Verzeichnis wählen - dann ein Makro, welches die Dateien in dem Verzeichnis nacheinander öffnet, mein vorhandenes Makro ausführt und die Datei dann "einfach" wieder speichert.
Bin mir sicher es gibt sowas schon oft - aber nach welchen Begriffen muss ich suchen (Verzeichnis abarbeiten, Dateien abarbeiten haben z. B. nicht geholfen)
Habe auch im Archiv etwas gefunden, bei dem die Dateien nacheinander geöffnet und dann in ein anderes Verzeichnis gespeichert werden.
Ich kann aber keinen Verweis auf ein zweites Makro erkennen bzw. nichts finden,
das mit den Dateien passiert - soweit bin ich leider noch nicht.
Liebe Grüße - Wolfgang
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen für alle Dateien im Verzeichni
22.03.2006 20:55:44
MichaV
Hallo,
das hört sich ja an, als ob Du keine fertige Lösung präsentiert haben willst.
Mit diesem Prinzip kannst Du alle Dateien eines Verzeichnisses ermitteln:

x=Dir("dein\Verzeichnis\*.txt")
do
'Dein Makro kann nun Datei x öffnen und bearbeiten
'und wieder schließen
x=dir() 'wählt die nächste Datei
loop until x="" 'beendet die Schleife nach der letzten Datei

In den Hilfe- Beispielen zur Dir- Funktion findest Du entsprechende Infos.
Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Makro ausführen für alle Dateien im Verzeichnis
22.03.2006 20:59:54
chris
Hallo wenn ich dich richtig verstanden habe suchst du das.

Sub neu()
Pfad1 = "C:\Excelfiles\"
name1 = Dir(Pfad1, vbDirectory)
Do While name1 <> ""
If name1 <> "." And name1 <> ".." Then
If (GetAttr(Pfad1 & name1) And vbDirectory) = vbNormal Then
If Right(name1, 3) = "xls" Then
Call deinmakro
End If
Debug.Print name1
End If
End If
name1 = Dir
Loop
End Sub



Sub deinmakro()
End Sub

Rückmeldung wäre nett.
gruß Christian
Anzeige
AW:was vergessen.
22.03.2006 21:03:44
chris
Du musst natürlich noch die .xls datei öffnen und dann erst call deinmakro ausfrühren.
Habe ich vorhin vergessen.
Workbooks.Open Pfad1 & name1
Call deinmakro
ActiveWorkbook.Close True
Danke - tolle Hilfe
23.03.2006 19:58:31
Wolfgang
Ihr habt mir sehr geholfen - obwohl ich dem Wahnsinn nahe war
(landete in einer Endlosschleife - auch beim schrittweisen ausführen)
Habe letztendlich die für mich einfachere Idee von Micha angepaßt.
Ich brauche euch ja nur alle paar Monate - klappt aber immer super !
Liebe Grüße - Wolfgang
Anzeige
;

Forumthreads zu verwandten Themen

Makro für alle Exceldatei verwenden
Günter

Guten Tag,
liebe Excelgemeinde. Habe durch euch ein wunderbares Makro bekommen.
Nun kann ich dieses Makro nur in einem Arbeitsblatt benutzen.
Möchte dieses aber in allen Exceldateien verwenden können.
Habe schon probiert, dieses in der Personl.xls zu hinterlegen.
Klappt aber...
26.07.2009 11:17:30
Thread-ID: 1091371
6 Beiträge
Makro in alle Excel-Dateien einbinden. Wie?
stefan

Hallo zusammen,
wie kann ich Makros so einbinden, dass sie in allen neuen Excel-Dateien per Hotkey zur Verfügung stehen?
Gibts sowas überhaupt?
Danke Euch.
30.07.2009 16:31:02
Thread-ID: 1092588
2 Beiträge
Makro für alle
christian

Hallo
wir setzen Office 2007 bzw. Excel auf einem Terminalserver ein. Nun möchte ich für alle ein Makro hinterlegen. Nach Möglichkeit soll das Makro in der Symbolleiste sein und nicht in der Schnellzugriffsleiste. Aber zu Not ginge das auch.
Viel wichtiger wäre mir zu wissen, wie ich...
14.08.2009 12:56:10
Thread-ID: 1095964
4 Beiträge
Makros in allen Dateien verfügbar machen
Andreas

Hallo da draußen, wie kann ich ein erstelltes Makro für alle Dateien zur Verfügung haben? Ich habe das Makro mit einem Symbol verknüpft. Gruß Andreas
17.07.2010 09:01:40
Thread-ID: 1167535
2 Beiträge
Makro für alle Arbeitsblätter
Basti

Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
27.08.2010 08:50:58
Thread-ID: 1174432
8 Beiträge
Anzeige
Makro für alle und immer
Jacqueline

Guten Tag liebe Exceler,
ich habe - mal wieder - ein Problem, welches für eure Lösungen gemacht ist.
Wir erstellen in unserer Abteilung immer mal wieder Makros, die allen zur Verfügung gestellt werden sollen. Am besten wäre für uns ein eigener Reiter mit allen Abteilungsmakros. Alle Mak...
17.05.2011 10:48:37
Thread-ID: 1214782
2 Beiträge
Excel Makro für Dateien zusammenfügen
Dietmar

Habe folgenden Code, für zusammenfügen mehrer Excel-Dateien die in einem Ordner liegen.
Problem dabei ist , das auch die Endungen der Dateien in den Blättern aufgenommen wird,
z.B P 1283.xlsx , wäre alles wunderbar, eben wenn dieses .xlsx im Blattnamen nicht drin wäre.
Code :<...
27.03.2012 12:43:23
Thread-ID: 1256646
4 Beiträge
Anzeige
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Makro - für allen Tabellenblätter gültig
Herbert

Hallo,
wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?
Sub spalte_c_ausblenden() ' spalte_c_ausblenden Makro Columns("C:C").Select Selection.EntireColumn.Hidden = True End Sub vielen Dank im...
14.11.2012 16:54:04
Thread-ID: 1286665
7 Beiträge
Anzeige
Marko für alle Dateien aus einer Liste ausführen
Lola

Liebes Forum,
ich muss für ca. 300 Dateien, die sich alle in einem Verzeichnis befinden, den Passwortschutz aufheben.
Die Namen der Dateien habe ich in einer Datei in den Zellen A2 bis A301 schon ausgelesen. Das Marko, das den Passwortwortschutz aufhebt, habe ich auch.
Allerdings ve...
27.05.2013 18:44:57
Thread-ID: 1315129
5 Beiträge
Anzeige
Makro anpassen für meherer Dateien
Enrico

Hallo Forum,
ich habe am am 11.04.2013 in einem Post (1308265) ein Makro von Klaus M.vdT. erhalten, dass ich für mich wie folgt angepasst habe:
Option Explicit
Public bFirstOpen As Boolean
Public wkbNew As Workbook
Sub PrintData() Dim wkbOld As Workbook Set wkbOld = ActiveWo...
12.06.2013 11:13:09
Thread-ID: 1317238
8 Beiträge
Makro für alle Arbeitsmappen in Excel
Christian

Hallo
ich habe in Excel ein Makro erstellt. kann mir jemand verraten, wie ich dieses makro für alle arbeitsmappen zur Verfügung stellen kann.
danke
15.08.2013 12:20:13
Thread-ID: 1327026
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Makro für alle Dateien im Verzeichnis ausführen

Schritt-für-Schritt-Anleitung

Um ein Excel-Makro für alle Dateien in einem Verzeichnis auszuführen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne die VBA-Entwicklungsumgebung:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Projektfenster mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle "Einfügen" und dann "Modul".

  3. Füge den folgenden Code ein:

    Sub MakroFürAlleDateien()
   Dim Pfad As String
   Dim Datei As String

   Pfad = "C:\DeinVerzeichnis\" ' Ändere den Pfad zu deinem Verzeichnis
   Datei = Dir(Pfad & "*.xls") ' Alle Excel-Dateien im Verzeichnis

   Do While Datei <> ""
       Workbooks.Open Pfad & Datei
       Call DeinMakro ' Dein bestehendes Makro aufrufen
       ActiveWorkbook.Close True ' Datei speichern und schließen
       Datei = Dir ' Nächste Datei
   Loop
End Sub

Sub DeinMakro()
   ' Hier kommt dein Makro-Code
End Sub

  4. Passe den Pfad an:

    • Ändere C:\DeinVerzeichnis\ zu dem Verzeichnis, in dem deine Excel-Dateien liegen.

  5. Makro ausführen:

    • Drücke F5 oder gehe auf "Ausführen" > "Sub/UserForm ausführen".

Häufige Fehler und Lösungen

  • Endlosschleife:

    • Stelle sicher, dass die Bedingung für das Ende der Schleife korrekt ist. Nutze Loop until Datei = "", um sicherzustellen, dass die Schleife ordnungsgemäß endet.

  • Datei nicht gefunden:

    • Überprüfe den angegebenen Pfad. Stelle sicher, dass der Pfad korrekt und die Dateien vorhanden sind.

  • Makro nicht ausgeführt:

    • Vergewissere dich, dass der Name des aufgerufenen Makros (Call DeinMakro) korrekt geschrieben ist.

Alternative Methoden

Falls du eine andere Methode bevorzugst, um ein Excel-Makro für alle Dateien auszuführen, kannst du auch die FileSystemObject-Bibliothek verwenden. Hier ein Beispiel:

Sub AlternativeMakroFürAlleDateien()
    Dim FSO As Object
    Dim Ordner As Object
    Dim Datei As Object
    Dim Pfad As String

    Pfad = "C:\DeinVerzeichnis\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Ordner = FSO.GetFolder(Pfad)

    For Each Datei In Ordner.Files
        If Right(Datei.Name, 4) = ".xls" Then
            Workbooks.Open Datei.Path
            Call DeinMakro
            ActiveWorkbook.Close True
        End If
    Next Datei
End Sub

Praktische Beispiele

Nehmen wir an, dein Makro heißt DatenVerarbeiten. Du kannst den Code so anpassen:

Sub DatenVerarbeiten()
    ' Beispiel: Daten in der ersten Zeile bearbeiten
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ws.Cells(1, 1).Value = "Bearbeitet"
End Sub

Dann rufe DatenVerarbeiten im Hauptmakro auf, um alle Dateien zu bearbeiten.

Tipps für Profis

  • Makros speichern für alle Excel-Dateien:

    • Überlege, deine Makros in einer persönlichen Makroarbeitsmappe (PERSONAL.XLSB) zu speichern, um sie jederzeit verfügbar zu haben.

  • Fehlerbehandlung:

    • Verwende On Error Resume Next, um Fehler zu ignorieren, oder implementiere eine gezielte Fehlerbehandlung, um Probleme während der Ausführung zu protokollieren.

  • Performance optimieren:

    • Deaktiviere Bildschirmaktualisierungen während der Ausführung des Makros mit Application.ScreenUpdating = False und aktiviere sie am Ende wieder.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um nur bestimmte Dateien zu bearbeiten? Du kannst die Bedingung innerhalb der Schleife anpassen, um nur Dateien mit bestimmten Kriterien (z.B. Dateiname oder -typ) zu bearbeiten.

2. Was mache ich, wenn ich mehrere Verzeichnisse abarbeiten möchte? Du kannst eine zusätzliche Schleife einfügen, die durch eine Liste von Verzeichnissen iteriert und das Hauptmakro für jedes Verzeichnis ausführt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige