Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnis und Ordner anlegen

Forumthread: Verzeichnis und Ordner anlegen

Verzeichnis und Ordner anlegen
steffen
Hallo in die Runde,
wie bekomme ich es hin, dass per VBA geprüft wird, ob das angegebene Verzeichnis vorhanden ist?
Wenn der/die Ordner nicht vorhanden sind , dann soll das entsrechende Verzeichnis angelegt werden.
MkDir ("C:\Eigene Dateien\" & jahr & "\" & monat "\" & Cells(lrowS, 2) & Cells(lrowS, 3))
Ich habe es so versucht, aber offensichtlich, wird nur in einem bestehenden Verzeichnis der Ordner erstellt.
Gruß Steffen
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verzeichnis und Ordner anlegen
13.07.2009 12:28:24
Martin
Hallo Steffen,
das geht so:
Dim Verzeichnis as String
Verzeichnis = ("C:\Eigene Dateien\" & jahr & "\" & monat "\" & Cells(lrowS, 2) & Cells(lrowS, 3))
If Fso.FolderExists(Verzeichnis) = False Then MkDir Verzeichnis
Viele Grüße
Martin
Fso? owT
13.07.2009 12:49:08
Rudi
Fehlermeldung
13.07.2009 12:51:10
Steffen
Hallo martin,
im Lokalfenster wird "Verzeichnis" so angezeigt, wie es auch sein soll.
doch bei
If Fso.FolderExists(Verzeichnis) = False Then
bekomme ich eine Fehlermeldung: Laufzeitfehler 424 - Objekt erforderlich
Anzeige
AW: Fehlermeldung
13.07.2009 12:54:08
Martin
Hallo,
entschuldigung, habe da zwei zeilen vergessen:
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Verzeichnis as String
Verzeichnis = ("C:\Eigene Dateien\" & jahr & "\" & monat "\" & Cells(lrowS, 2) & Cells(lrowS, 3))
If Fso.FolderExists(Verzeichnis) = False Then MkDir Verzeichnis
Anzeige
noch'n Fehler
13.07.2009 13:05:17
steffen
hi martin,
is dat kompliziert :(
jetzt krieg ich hier nen Fehler angezeigt:
Then MkDir Verzeichnis
Laufzeitfehler 76 Pfad nicht gefunden
na toll-er soll ihn ja auch anlegen, wenn nicht da
Gruß steffen
AW: Fehlermeldung
13.07.2009 12:55:36
Rudi
Hallo,
deshalb mein Fso?
Dim Verzeichnis as String, fso as Object
Set fso=CreateObject("Scripting.Filesystemobject")
Verzeichnis = ("C:\Eigene Dateien\" & jahr & "\" & monat "\" & Cells(lrowS, 2) & Cells(lrowS, 3))
If Fso.FolderExists(Verzeichnis) = False Then MkDir Verzeichnis
Gruß
Rudi
Anzeige
AW: Fehlermeldung
13.07.2009 13:02:05
Martin
Hallo Rudi,
ich arbeite viel mit ASP (Active Server Pages), was VBA sehr ähnlich ist. Selbstverständlich ist Dein Weg wesentlich einfacher. Auch ich lerne dazu...
Viele Grüße
Martin
AW: Fehlermeldung
13.07.2009 13:03:07
Martin
Hallo Rudi,
ich arbeite viel mit ASP (Active Server Pages), was VBA sehr ähnlich ist. Selbstverständlich ist Dein Weg wesentlich einfacher. Auch ich lerne dazu...
Viele Grüße
Martin
Anzeige
AW: Verzeichnis und Ordner anlegen
13.07.2009 12:44:22
Rudi
Hallo,
If Dir ("C:\Eigene Dateien\" & jahr & "\" & monat "\" & Cells(lrowS, 2) & Cells(lrowS, 3), vbDirectory)="" Then MkDir ("C:\Eigene Dateien\" & jahr & "\" & monat "\" & Cells(lrowS, 2) & Cells(lrowS, 3))
Gruß
Rudi
AW: Verzeichnis und Ordner anlegen
13.07.2009 12:48:43
Martin
Hallo Rudi,
du setzt immer noch eins drauf! Hut ab!
Viele Grüße
Martin
Anzeige
Problem
13.07.2009 12:57:43
steffen
Hallo Rudi,
leider funzt das (Typen unverträglich) nicht, offensichtlich weil ich monat als String übergebe?
Gruß Steffen
AW: Problem
13.07.2009 13:02:43
Rudi
Hallo,
das war vorher schon falsch.
If Dir ("C:\Eigene Dateien\" & jahr & "\" & monat & "\" & Cells(lrowS, 2) & Cells(lrowS, 3), vbDirectory)="" Then MkDir ("C:\Eigene Dateien\" & jahr & "\" & monat & "\" & Cells(lrowS, 2) & Cells(lrowS, 3))
Anzeige
AW: Problem
13.07.2009 13:18:49
Luschi
Hallo Steffen,
egal, für welche Lösung Du Dich entscheidest:
sobald Werte aus Tabellenzellen in den Ordnernamen einfließen, muß man prüfen, ob in den Zellen Zeichen vorkommen, die als Verzeichnis- bzw. Dateinamen 'NICHT ERLAUBT SIND'!
Dazu gehören z.Z: \ / * ? | und alle Steuerzeichen zwischen 0 und 31.
Wenn also in der Zelle mit Hilfe von Alt+Enter ein Zeilenwechsel eingefügt wurde (Steuerzeichen 10), hast Du schon verloren.
Gruß von Luschi
aus klein-Paris
Anzeige
;

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