Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Ordner existiert

Forumthread: Prüfen ob Ordner existiert

Prüfen ob Ordner existiert
14.12.2020 12:13:55
Jonathan
Hallo,
ich weiß es existieren zahlreiche Themen bez. der Ordner Prüfung.
Die meisten sind allerdings für mich nicht so recht nachvollziebar.
Ich dachte se sollte ganz einfach möglich sein, einen Ordner auf existens zuu prüfen, ggf. anzulegen, aber folgende Möglichkeit funktioniert nicht.
Kann mir jemand erklären warum?
If Dir(ActiveWorkbook.Path & "\" & Bereich & "\" & lastID) "" Then
Else
MkDir ActiveWorkbook.Path & "\" & Bereich & "\" & lastID
End If
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Ordner existiert
14.12.2020 12:16:59
Nepumuk
Hallo Jonathan,
du hast das Ordnerattribut vergessen.
If Dir$(ActiveWorkbook.Path & "\" & Bereich & "\" & lastID, vbDirectory) = "" Then
    MkDir ActiveWorkbook.Path & "\" & Bereich & "\" & lastID
End If

Gruß
Nepumuk
Anzeige
AW: Prüfen ob Ordner existiert
14.12.2020 13:05:14
Jonathan
Vielen Dank. Das wars.
Habs übrigens nicht vergessen, bin einfach unwissend.
Deshalb Vielen Dank!
AW: Prüfen ob Ordner existiert
14.12.2020 12:17:56
Rudi
Hallo,
MkDir kann nur einen Ordner in einem bereits existierenden Ordner anlegen.
Wenn es ActiveWorkbook.Path & "\" & Bereich nicht gibt, schlägt das also fehl.
Gruß
Rudi
Anzeige
AW: Prüfen ob Ordner existiert
14.12.2020 13:04:23
Jonathan
Vielen Dank. Wusste ich nicht. Aber diese Ordner sind immer schon da.
;

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
"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
Anzeige
Prüfen ob Verzeichnis vorhanden ist
philipp
Hallo zusammen,
ich möchte gern prüfen ob ein Verzeichnis vorhanden ist. Wenn nicht soll es erstellt werden + Ordner für das
aktuelle Jahr. Bekomme es nicht hin.
Sollte so aussehen:
strPath="C:\Philipp\Material\2021
das aktuelle Jahr könnte man hier holen:
Ordner = strPath &a...
05.08.2021 16:56:21
Thread-ID: 1842286
18 Beiträge
Prüfen ob Ordner online existiert
Henner
Hallo zusammen
Mit folgendem Code überprüfe ich, ob eine URL oder eine Datei online existiert. Das funktioniert auch problemlos für eine URL (Test1) und eine Datei (Test2). Nun möchte ich aber auch prüfen, ob ein Ordner existiert (Bsp.: "http://www.test.com/folder/subfolder/". Das funktioniert d...
28.01.2023 12:42:32
Thread-ID: 1917874
9 Beiträge
prüfen ob Verzeichnis in Sharepoint vorhanden
Heinz
Hallo Excelexperten,

folgender Code soll prüfen, ob es ein Verzeichnis in Sharepoint gibt, und wenn nicht, dieses anlegen:

gn_pfad = "https://xy.sharepoint.com/:f:/r/sites/hs/Shared Documents/Dokumentation/hs"
If Dir(gn_pfad, vbDirectory) = "" Then
MkDir gn_pfad
End...
03.05.2024 16:30:40
Thread-ID: 1976538
5 Beiträge
Anzeige
VBA - Verzeichnisse erstellen und manuell löschen
Christian

Hallo bestes Forum,
per vba möchte ich ein Haupt-Verzeichnis erstellen, falls dieses noch nicht existiert.
In diesem Ordner werden weitere Unterordner erstellt (auch wieder nur dann, wenn es diese noch nicht gibt).
Diese mit meinem Script (siehe unten) erstellten Verzeichnisse zeige...
09.09.2010 21:01:16
Thread-ID: 1176718
6 Beiträge
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
Anzeige
Alternative falls definierter Pfad nicht vorhanden
Marc

Hallo,
ich habe ein Makro, das bei bestimmten Aktionen ein Logfile erstellt und in einem definierten Pfad ablegt (s. Code).
Kann mir jemand sagen, was ich hier ändern muss, um folgende Alternative zu ergänzen ?
Falls definierter Pfad (strPath) nicht vorhanden, erstelle kein Logfil...
21.06.2012 10:04:17
Thread-ID: 1268239
6 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

Beliebteste Forumthreads (12 Monate)

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