Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1488to1492
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
Inhaltsverzeichnis

Ordner automatisch erstellen

Ordner automatisch erstellen
28.04.2016 12:37:54
Bernd
Hallo und vorab schon mal DANKE.
Ich möchte gerne aus Excel heraus per VBA-Code einen Ordner anlegen.
der Pfad wäre
C:\Users\A690666\Desktop\
und der Ordner soll heissen
SM(Zelle B2)-(Zelle J2)_(Zelle M2)
(in der Klammer soll der Inhalt Text/Zahlen sein vom "Tabellenblatts 1")
Ergebnis
SM123456789-123456_7FEA
Danke Bernd

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner automatisch erstellen
28.04.2016 12:44:35
ChrisL
Hi Bernd
With Worksheets("Tabelle1")
MkDir "C:\Users\A690666\Desktop\SM" & .Range("B2") & "-" & .Range("J2") & "_" & .Range("M2")
End With
cu
Chris

AW: Ordner automatisch erstellen
28.04.2016 13:41:04
Bernd
Perfekt DANKE

AW: Ordner automatisch erstellen
28.04.2016 12:46:25
Michael
Hi Bernd,
lies mal den Forumsbeitrag:
https://www.herber.de/forum/archiv/708to712/708450_Ordner_erstellen_mit_VBA_Code_anpassen.html
Das enthält (für 32-bit-Windows) die *allgemeine* Variante, wie man sicherstellt, daß ein "Unterordner" samt darüberliegender Ordnerstruktur angelegt wird.
Die "kleine" Lösung mit mkdir hat Chris ja zwischenzeiltich gepostet.
Schöne Grüße,
Michael

Anzeige
AW: Ordner automatisch erstellen
28.04.2016 12:51:14
Rudi
Hallo,
Sub aa()
MkDir Environ("userprofile") _
& "\Desktop\SM" & Range("B2") _
& "-" & Range("J2") & "_" & Range("M2")
End Sub

Gruß
Rudi

AW: Ordner automatisch erstellen
28.04.2016 12:52:21
Daniel
Hi
unter der Annahme, dass er Desktopfad besteht:
dim Pfad as String
With Sheets("Tabellenblatt 1")
Pfad = "C:\Users\A690666\Desktop\SM" & .Cells(2, 2).Value & "-" & .Cells(2, 10).Value & "_" & . _
Cells(2, 13).Value
End with
if Dir(pfad, vbDirectory) = "" then MkDir(pfad)

wenn der Pfadname Userspezifisch erstellt werden soll, kannst du den Desktopfad auch ermitteln, hier für WIN7:
Pfad = Environ("Userprofile") & "\Desktop\SM" & .Cells(... und dann weiter wie gehabt.
Gruß Daniel
Anzeige

84 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige