Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Verzeichnis vorhanden

Prüfen ob Verzeichnis vorhanden
31.08.2007 06:15:48
Mister
Hallo und guten Morgen,
ich weiss, dass man in VBA prüfen kann ob ein bestimmtes Verzeichnis vorhanden ist. Die Beiträge im Archiv helfen mir aufgrund mangelden Kenntnisses leider nicht weiter. Hier mein Problem:
Ich schreibe mittels UF viele Infos in eine Tabelle. Ich möchte prüfen ob ein Verzeichnis existiert dessen Name aus den Inhalt der TextBoxes 1 & 2 besteht, getrennt durch ein Komma. Z.B. In TextBox 1 steht "Mustermann", in TextBox2 "Max". VBA soll jetzt prüfen ob das Verzeichnis "C:\Dateien\Mustermann, Max" existiert. Falls nein, soll das Verzeichnis angelegt werden. Geht das? Hoffe ich habe mich verständlich ausgedruckt.
Gruß
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Verzeichnis vorhanden
31.08.2007 06:44:00
Mag
Hi,

Sub ttt()
Dim strVerzeichnis As String
strVerzeichnis = "C:\tempi"
'Überprüfen ob Verzeichnis vorhanden
If Dir(strVerzeichnis, vbDirectory)  "" Then
'Folder anlegen
MsgBox strVerzeichnis & ": mich gibt es!"
Else
MsgBox strVerzeichnis & ": mich gibt es aber nicht!"
Exit Sub
End If
End Sub


Gruss

AW: Prüfen ob Verzeichnis vorhanden
31.08.2007 13:30:05
Rudi
Hallo,

Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub Pfad_anlegen()
'Ist das Verzeichnis nicht wie angegeben vorhanden, wird es angelegt.
MakeSureDirectoryPathExists "C:\temp\test\test\test\"
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige

12 Forumthreads zu ähnlichen Themen

perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Anzeige
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
Überprüfen, ob Ordner existiert
Jürgen

Hallo,
meine Prozedur setzt einen existierenden Ordner voraus. Das wird durch eine Funktion überprüft. pre> Function OrdnerVorhanden(ByVal strPfad As String) As Boolean On Error GoTo Fehler OrdnerVorhanden = True ChDir (strPfad) On Error GoTo 0 Exit Function Fehler: OrdnerVorhanden = Fa...
29.12.2015 20:19:26
Thread-ID: 1466354
3 Beiträge
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
Prüfen ob Ordner existiert
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 n...
14.12.2020 12:13:55
Thread-ID: 1799528
5 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

Links zu Excel-Dialogen

TextBox

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
5
3
7
1
3
2
4
2
4
6
17
8