Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1204to1208
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
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen, ob Pfad existiert

Prüfen, ob Pfad existiert
stefanseevetal
Hallo zusammen!
Ich habe ein Userform, in der man einen neuen Pfad eingeben kann, wo benötigte Inhalte gespeichert werden. Ich möchte nun noch prüfen können, ob der neu eingegebene Pfad auch wirklich existiert und wenn nicht, möchte ich eine Fehlermeldung ausgeben.
Hier ein Auszug meiner bisherigern Lösung:
If Not IsEmpty(TB_NeuerPfad) Then
ThisWorkbook.Worksheets("Parameter").Cells(3, 6) = TB_NeuerPfad
...
Ich prüfe bisher nur, ob im Textfeld TB_NeuerPfad etwas drinsteht, aber nicht ob das Eingegebene auch korrekt ist.
Hoffe, mir kann jemand helfen?!
Vielen Dank und freundliche Grüße
Stefanseevetal

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

Betreff
Benutzer
Anzeige
AW: Prüfen, ob Pfad existiert
09.03.2011 15:56:48
Hajo_ZI
Hallo Stefan, 

Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\", vbDirectory)  "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
Set Fso = Nothing
End Sub

Anzeige
Schau Dir mal DIR an owT
09.03.2011 15:57:21
Matthias
AW: Prüfen, ob Pfad existiert
09.03.2011 16:04:27
M.
Hallo,
eine weitere Möglichkeit neben den bereits genannten wäre es, dem Benutzer den Pfad über eine Userform auswählen zu lassen, so ist sichergestellt dass nur ein vorhandener Ordner ausgewählt werden kann.
Hier mal ein Beispiel:
https://www.herber.de/bbs/user/73913.xls
Gruß
Rudi
Vielen Dank Euch allen, klappt super!!!
09.03.2011 16:32:51
stefanseevetal
Danke!!!

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

UserForm

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