Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen Ordner mit Unterordner ob Datei existiert

Prüfen Ordner mit Unterordner ob Datei existiert
08.09.2018 07:52:09
Olga
Guten Morgen,
leider finde ich nirgendwo einen Ansatz wie ich einen Ordner mit Unterordner auf den Inhalt einer Datei prüfen kann.
z.B.
C:\Muster (Hauptordner)
In diesem Ordner können Ordner vorhanden sein oder nicht
C:\Muster\Test
Wenn ein Ordner existiert soll geprüft werden ob hier eine Datei vorhanden ist.
In diesem Ordner können wieder Unterordner vorhanden sein
C:\Muster\Test\Order1
C:\Muster\Test\Order2 usw.
C:\Muster\Test1
C:\Muster\Test1\Ordner1
C:\Muster\Test1\Ordner2 usw.
Wenn eine Datei im Hauptordner vorhanden ist , egal in welchem Ordner möchte ich nur
Wahr oder Falsch als Ausgabe.
Hoffe ich habe mich verständlich ausgedrückt.
Danke!
Gruß, Olga

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen Ordner mit Unterordner ob Datei existiert
08.09.2018 10:11:45
Olga
Hallo Hajo,
diese Lösungen findet man sehr oft im web.
Ich möchte nur wissen ob ein im Verzeichnis in allen Ordner ein Datei existiert.
Es soll nur wahr oder falsch ausgegeben werden.
Danke!
Gruß, Olga
AW: Prüfen Ordner mit Unterordner ob Datei existiert
08.09.2018 10:18:27
Hajo_Zi
Hallo Olga,
ja im Code werden alle Dateien ermittelt. Es ist wohl ein Problem den Dateinamen mit Deinem zu vergleichen. Da kann ich dann nicht helfen.
Du kennst Dich ja mit VBA aus, wenn Du solche komplizierten Sachen schon machst.
Gruß Hajo
Anzeige
AW: Prüfen Ordner mit Unterordner ob Datei existiert
08.09.2018 16:52:27
Nepumuk
Hallo Olga,
teste mal:
Option Explicit

Public Sub Olga()
    Const PARENT_FOLDER As String = "C:\Muster\" 'anpassen
    If SerarchFile(PARENT_FOLDER) Then
        Call MsgBox("Mindestens eine Datei wurde gefunden.", vbInformation, "Information")
    Else
        Call MsgBox("Keine Datei gefunden.", vbExclamation, "Hinweis")
    End If
End Sub

Private Function SerarchFile(ByVal pvstrFolder As String) As Boolean
    Dim astrFolders() As String
    Dim ialngIndex As Long
    astrFolders = GetFolders(pvstrFolder)
    For ialngIndex = LBound(astrFolders) To UBound(astrFolders)
        If Dir$(astrFolders(ialngIndex) & "*.*") <> vbNullString Then
            SerarchFile = True
            Exit For
        End If
    Next
End Function

Private Function GetFolders(ByVal pvstrPath As String) As String()
    Dim astrFolders() As String
    Dim strFolder As String, strPath As String
    Dim ialngIndex1 As Long, ialngIndex2 As Long
    Redim astrFolders(0)
    astrFolders(0) = pvstrPath
    strPath = pvstrPath
    Do
        strFolder = Dir$(strPath & "*", vbDirectory)
        Do Until strFolder = vbNullString
            If strFolder <> "." And strFolder <> ".." Then
                If GetAttr(strPath & strFolder) And vbDirectory Then
                    Redim Preserve astrFolders(0 To ialngIndex1)
                    astrFolders(ialngIndex1) = strPath & strFolder & "\"
                    ialngIndex1 = ialngIndex1 + 1
                End If
            End If
            strFolder = Dir$
        Loop
        If ialngIndex1 = ialngIndex2 Then Exit Do
        strPath = astrFolders(ialngIndex2)
        ialngIndex2 = ialngIndex2 + 1
    Loop
    GetFolders = astrFolders
End Function

Gruß
Nepumuk
Anzeige
AW: Prüfen Ordner mit Unterordner ob Datei existiert
08.09.2018 18:28:27
Olga
Hallo Nepumuk,
herzlichen Dank!
Genau so wie ich es mir vorgestellt habe.
Gruß, Olga

305 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4