Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba Ordner auf leer prüfen

Forumthread: vba Ordner auf leer prüfen

vba Ordner auf leer prüfen
14.01.2014 18:55:52
Uwe
hallo Leute,
ich benötige Hilfe.
aus einem beliebigen Ordner werden Daten kopiert,
ist der Ordner nicht vorhanden, wird er angelegt.
Problem:
wenn dieser Ordner leer ist soll eine Meldung kommen und ein Abbruch erfolgen,
ansonsten weiter im VBA
kann mir jemand helfen? 

Sub kopieren()
Dim ziel As String, versuch As String, quelle As Variant, sht As String, i As Integer
versuch = ActiveWorkbook.Path & "\Versuche"
ziel = ThisWorkbook.Name
ChDrive Left(ActiveWorkbook.Path, 1) 'aktuelles LW aktivieren
If Dir(versuch, vbDirectory) = "" Then 'falls Unterordner "Versuche" nicht existiert ->  _
anlegen
MkDir (versuch)
MsgBox "Es wurde ein Ordner für die Versuche angelegt"
End If
'---- hier vielleicht die Abfrage?
ChDir versuch 'in aktuellen Pfad wechseln
quelle = Application.GetOpenFilename("Excel-Dateien (*.xls*),*.xls*", , "Datei auswählen",  _
MultiSelect:=False)
Workbooks.Open quelle
sht = ActiveWorkbook.Name
For i = 1 To Worksheets.Count 'Tabellen kopieren in Zieldatei hinter Tabelle 3 einfügen
Workbooks(sht).Sheets(i).Copy After:=Workbooks(ziel).Sheets(i + 2)
Next i
Workbooks(sht).Close
For i = 4 To Worksheets.Count 'Tabellen nach Position in Zieldatei benennen (nummerieren)
Worksheets(i).Activate
ActiveSheet.Name = i
Next i
Worksheets(1).Activate 'Tabellennamen in Tabelle "Start" ab Zelle A3 als Liste eintragen
For i = 3 To ActiveWorkbook.Sheets.Count
Sheets("Start").Range("A" & i) = Sheets(i).Name
Next
End Sub

danke Uwe

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba Ordner auf leer prüfen
14.01.2014 19:33:12
Uduuh
Hallo,
if dir(versuch &"\*")="" then
msgbox "ordner leer"
exit sub
end if
Gruß aus’m Pott
Udo

AW: vba Ordner auf leer prüfen
15.01.2014 08:48:02
Uwe
Hallo Udo,
vielen Dank, genau so geht's.
Ich hatte bei meinen zig Versuchen den Backslash vergessen und es nicht gesehen.
es grüßt
Uwe
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Prüfen ob Schaltfläche vorhanden
WalterK

Hallo,
ich möchte prüfen, ob die Formularschaltfläche "WAHR" bereits vorhanden ist und dementsprechend eine MsgBox ausgeben. Irgendetwas klappt nicht, weiß aber nicht wo der Fehler ist. Option Explicit Sub Testmodul() Dim shShape As Shape With ActiveSheet If shShape.Name = "WAHR" Then MsgBo...
11.03.2012 15:44:26
Thread-ID: 1254585
8 Beiträge
Prüfen ob UNC-Ordner vorhanden ist
Andreas

Hallo liebe Forumsnutzer,
ich prüfe mittels folgendem Makro, ob ein bestimmtes Verzeichnis auf der lokalen Festplatte vorhanden ist. Das zu prüfende Verzeichnis steht in Zelle A1.
pfad = Worksheets("Tabelle1").Cells(1, 1)
If Dir(pfad, vbDirectory) "" Then MsgBox "In A1 angegebener...
09.03.2014 15:51:54
Thread-ID: 1352770
2 Beiträge
Anzeige
VBA Tabellen erstellen und überprüfen ob vorhanden
Donald

Servus!
Nach anfänglichem Haareraufen komme ich nun zu euch, da das sicher ein Kinderspiel für euch ist. Folgende beiden Codes habe ich (teils glaube ich sogar hier aus dem Forum von Hajo_Zi anno 2012):
Sub NewSheets() For I = 1 To 12 Dim wsNew As Worksheet Set wsNew = Worksheets.Add Wi...
07.09.2016 12:56:27
Thread-ID: 1513332
5 Beiträge
Dateien veschieben Ordner ist aber leer
Claudia

Hallo liebe Excel Helfer,
mit nachsttehendem Makro verschiebe ich Dateien von einem Ordner in einen anderen und lösche anschließend die dateien in dem Ursprungsordner.
Sub verschieben() ' verschiebt die Dateien von NEU nach ARBEIT Dim fs Set fs = CreateObject("Scripting.FileSystemObjec...
12.11.2004 11:27:02
Thread-ID: 516450
5 Beiträge
"Prüfen ob Ordner vorhanden" geht nicht
Ronald

Grüßt Euch
Ich möchte gerne einen Ordner erstellen und da es diesen manchmal nicht erstellt hat, wollte ich
eine Art Überprüfung am Ende meines Ablaufs machen, sodaß es auch genug Zeit hat, den Ordner
wirkklich zu erstellen. Nur ist es so, daß ich beim Debuggen sehe, daß er meint, d...
15.05.2020 13:01:24
Thread-ID: 1759450
3 Beiträge
VBA Prüfen ob Datei in Ordner
Fritz_W
Hallo Forumsbesucher,
benötige wieder einmal die Hilfe der VBA-Kundigen wie folgt.
Ich möchte erreichen, dass wenn in der Zelle die Datei mit exakt der Dateibezeichnung aus G1 der Tabelle1 sich im in G2 (Tabelle1) enthaltenen Ordner, ein Makro ausgeführt wird.
Für eure Hilfe besten Dank...
08.07.2021 17:25:40
Thread-ID: 1838355
7 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

VBA: Ordner auf Leer prüfen und Daten kopieren

Schritt-für-Schritt-Anleitung

Um zu prüfen, ob ein Ordner leer ist, bevor Du mit dem Kopieren von Daten fortfährst, befolge diese Schritte:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Neues Modul erstellen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Code einfügen: Kopiere den folgenden Code in das Modul:
Sub kopieren()
    Dim ziel As String, versuch As String, quelle As Variant, sht As String, i As Integer
    versuch = ActiveWorkbook.Path & "\Versuche"
    ziel = ThisWorkbook.Name
    ChDrive Left(ActiveWorkbook.Path, 1) 'aktuelles LW aktivieren

    If Dir(versuch, vbDirectory) = "" Then 'falls Unterordner "Versuche" nicht existiert
        MkDir (versuch)
        MsgBox "Es wurde ein Ordner für die Versuche angelegt"
    End If

    ' Hier die Abfrage hinzufügen
    If Dir(versuch & "\*") = "" Then
        MsgBox "Dieser Ordner ist leer"
        Exit Sub
    End If

    ChDir versuch ' in aktuellen Pfad wechseln
    quelle = Application.GetOpenFilename("Excel-Dateien (*.xls*),*.xls*", , "Datei auswählen", MultiSelect:=False)
    Workbooks.Open quelle
    sht = ActiveWorkbook.Name

    For i = 1 To Worksheets.Count ' Tabellen kopieren
        Workbooks(sht).Sheets(i).Copy After:=Workbooks(ziel).Sheets(i + 2)
    Next i

    Workbooks(sht).Close
    For i = 4 To Worksheets.Count ' Tabellen umbenennen
        Worksheets(i).Activate
        ActiveSheet.Name = i
    Next i

    Worksheets(1).Activate ' Tabellennamen auflisten
    For i = 3 To ActiveWorkbook.Sheets.Count
        Sheets("Start").Range("A" & i) = Sheets(i).Name
    Next
End Sub
  1. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus.

Häufige Fehler und Lösungen

  • Fehler: "Das Verzeichnis ist nicht leer" wird nicht angezeigt.

    • Lösung: Stelle sicher, dass der Verzeichnis-Pfad korrekt ist und das Backslash (\) am Ende des Pfades hinzugefügt wurde.

  • Fehler: Ordner leer, obwohl Daten vorhanden.

    • Lösung: Überprüfe, ob die Dateinamen im Zielordner tatsächlich vorhanden sind und keine versteckten Dateien existieren.

Alternative Methoden

Eine alternative Methode, um zu prüfen, ob ein Ordner leer ist, ist die Verwendung von FileSystemObject. Hier ist ein Beispiel:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.GetFolder(versuch).Files.Count = 0 Then
    MsgBox "Der Ordner ist leer."
    Exit Sub
End If

Dieser Code verwendet die FileSystemObject, um die Anzahl der Dateien im Ordner zu zählen.

Praktische Beispiele

  1. Ordner erstellen und prüfen:

    • Wenn der Ordner "Daten" nicht existiert, wird er erstellt, und es wird geprüft, ob er leer ist.

  2. Daten aus einem leeren Ordner kopieren:

    • Verwende das oben genannte Makro, um sicherzustellen, dass Du nur aus nicht-leeren Ordnern kopierst.

Tipps für Profis

  • Verwendung von Error Handling: Implementiere On Error Resume Next, um sicherzustellen, dass Dein Makro nicht aufgrund eines Fehlers abbricht.

  • Dynamische Ordnernamen: Erstelle eine Funktion, die den Ordnernamen basierend auf dem Datum oder anderen Kriterien anpasst.

  • Regelmäßige Backups: Stelle sicher, dass Du regelmäßige Backups Deiner Daten machst, bevor Du mit dem Kopieren beginnst.

FAQ: Häufige Fragen

1. Wie prüfe ich, ob ein Ordner vorhanden ist?
Du kannst die Dir-Funktion verwenden, um zu prüfen, ob ein Ordner existiert. Beispiel:

If Dir(versuch, vbDirectory) = "" Then
    MsgBox "Der Ordner existiert nicht."
End If

2. Was kann ich tun, wenn mein Ordner leer ist?
Wenn der Ordner leer ist, kannst Du eine entsprechende Meldung anzeigen lassen und das Makro abbrechen, wie im obigen Beispiel gezeigt.

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