Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterverzeichnis anlegen

Forumthread: Unterverzeichnis anlegen

Unterverzeichnis anlegen
05.06.2003 13:12:58
christian
Hallo

ich möchte gern ein Unterverzeichnis über VBA anlegen lassen. Der komplette Verzeichnisbaum ist in Zelle "A1" hinterlegt und der neue Unterverzeichnisname ist in Zelle "B1" hinterlegt.

Womit kann ich das Unterverzeichnis anlegen lassen.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Unterverzeichnis anlegen
05.06.2003 13:18:09
Bernd Held

Hallo Christian,

Sub DateiSpeichern()
Dim B As Boolean
dim Ordner as string
dim uordner as string
ordner= Range("A1").value 'z.B. "C:\Eigene Dateien\"
uordner= Range("B1").value 'z.B. "Test\"


B = VerzDa(Ordner)
If B = False Then
'Neuanlage des Verzeichnisses
MkDir Ordner & Uordner
Else
End If
ChDir Ordner & Uordner
'Speicherung der Datei

End Sub

Function VerzDa(s As String) As Boolean
On Error GoTo fehler
ChDir (s)
VerzDa = True
Exit Function

fehler:
VerzDa = False
End Function

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF) unter: http://held-office.de




Anzeige
Re: Unterverzeichnis anlegen
05.06.2003 13:24:09
christian

Danke

funktioniert super.

Ciao Christian

Re: Unterverzeichnis anlegen
05.06.2003 13:25:35
L.Vira

Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub MakeSure_Dir()
MakeSureDirectoryPathExists [a1] & [b1]
End Sub

;

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