Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1996to2000
1996to2000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Per VBA Ordner anlegen mit Namen aus Zellen

Forumthread: Per VBA Ordner anlegen mit Namen aus Zellen

Per VBA Ordner anlegen mit Namen aus Zellen
20.11.2024 09:53:14
AxelF1977
Guten Morgen,

in einer produktiven Tabelle habe ich ein Tabellenblatt "MG Werte". In diesem befinden sich Werte in Spalte B, welche jeweils eine Zelle der Spalte belegen. Von B1 - B200 kann alles belegt sein, oder aber auch nur B1. Die Länge der Spalte ist Variabel.

Nun hätte ich gerne eine Schleife, die die Spalte durchläuft, und aus jedem Wert einen Ordner anlegt. Der Pfad ist vorher definiert.

In dem erstellten Unterordner sollen weitere, festbenannte, Unterordner erstellt werden.

Bisher habe ich das sehr rudimentär gelöst. Da ich die ganze Funktionsweise gerade umbaue, hätte ich hier gerne eine schönere Lösung

Bisher geschieht das so (sensible Daten sind durch "Beispiel" geändert. 

Private Sub Create_Folder()



Dim strDateiname As String



    strFolderPath01 = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\"

    strFolderPath02 = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\"

    strFolderPath03 = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\"

    strFolderPath04 = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\"

    strFolderPath05 = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\" & "Beispiel03"

    strFolderPath06 = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\" & "Beispiel04"

    

    If Dir(strFolderPath01, vbDirectory) = "" Then

    ' Ordner anlegen

    MkDir (strFolderPath01)

    Else

    ' mache irgendwas

    End If

    

    If Dir(strFolderPath02, vbDirectory) = "" Then

    ' Ordner anlegen

    MkDir (strFolderPath02)

    Else

    ' mache irgendwas

    End If

    

    If Dir(strFolderPath03, vbDirectory) = "" Then

    ' Ordner anlegen

    MkDir (strFolderPath03)

    Else

    ' mache irgendwas

    End If

    

    If Dir(strFolderPath04, vbDirectory) = "" Then

    ' Ordner anlegen

    MkDir (strFolderPath04)

    Else

    ' mache irgendwas

    End If

    

    If Dir(strFolderPath05, vbDirectory) = "" Then

    ' Ordner anlegen

    MkDir (strFolderPath05)

    Else

    ' mache irgendwas

    End If



    If Dir(strFolderPath06, vbDirectory) = "" Then

    ' Ordner anlegen

    MkDir (strFolderPath06)

    Else

    ' mache irgendwas

    End If

    

    'Ordner öffnen

    Call Shell("explorer.exe" & " " & strFolderPath03, vbNormalFocus)

    

End Sub


Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: API "MakeSureDirectoryPathExists"
20.11.2024 10:46:16
Fennek
Hallo,

"MkDir" ist der VBA-Befehl neue Ordner anzulegen.

Alternativ und mit dem Vorteil, dass nichts passiert, falls der Ordner bereits existiert ist 


Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _

    ByVal DirPath As String) As Long



sub New_Filder()

dim rtn as long



rtn = MakeSureDirectoryPathExists("c:\temp\Ordner_neu")

end sub


Natürlich kann der Pfad auch mit Variablen spezifiziert werden.

Falls der Pfad-Name Unicode-Zeichen enthält, gibt es eine andere Function.

mfg
Anzeige
AW: API "MakeSureDirectoryPathExists"
20.11.2024 11:05:30
AxelF1977
Guten Morgen Fennek,

erstmal Danke für Deine Antwort.

Was das eigentliche "Problem" ist, ist das ich eine Schleife brauche, die Zählt wie viele Zeilen in Spalte B gefüllt sind, und entsprechend viele Ordner im Pfad anlegt. Jeder Ordner muss den Namen einer Zelle der Spalte B fortlaufend haben.

Das ist erstmal das erste was mich schon vor ein großes Rätsel stellt. Aktuell bin ich unterwegs. Ansonsten kann ich bei Bedarf eine Beispieldatei hochladen, wobei das nur x-Werte in Spalte B stehen würden, denke auch nicht sehr hilfreich
Anzeige
AW: API "MakeSureDirectoryPathExists"
20.11.2024 11:09:12
Onur
" ist das ich eine Schleife brauche, die Zählt wie viele Zeilen in Spalte B gefüllt sind" ?
Da brauchst du doch keine Schleife - Dafür reicht doch Anzahl2 bzw Anzahl oder für VBA die Worksheetfunction dazu.
siehe meinen Beitrag....
20.11.2024 12:53:05
MCO
...
AW: Per VBA Ordner anlegen mit Namen aus Zellen
20.11.2024 10:54:02
Alwin Weisangler
Hallo Axel,

das wäre in Schleife so besser und bequemer: 


Option Explicit

#If VBA7 Then

    Declare PtrSafe Function MakePath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

#Else

    Declare Function MakePath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

#End If



Sub APIMakeSureDirectoryPathExists(strVerzeichnis As String)

    If MakePath(strVerzeichnis) = 0 Then

        MsgBox "Verzeichnis konnte nicht erstellt werden!", vbCritical

        End

    End If

End Sub



Sub LegVerzeichnisAn()

    Dim i&, arrPfade(), Pfad$

    arrPfade = Array("C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02", _

        "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\", _

        "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\", _

        "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\", _

        "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\" & "Beispiel03", _

        "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\" & "Beispiel04")

    For i = 0 To UBound(arrPfade)

        Pfad = arrPfade(i)

        Call APIMakeSureDirectoryPathExists(Pfad)

    Next i

End Sub
Anzeige
AW: Per VBA Ordner anlegen mit Namen aus Zellen
20.11.2024 12:08:47
Alwin Weisangler
ich habe grad gesehen, dass es ja nur um einen Pfad geht.
Dass wäre das Array so: 


arrPfade = Array("C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\" & "Beispiel03", _

                 "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\" & Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\" & Format(Now, "dd.mm") & " " & "Lokal" & "\" & Range("F173").Text & "\" & "Beispiel04")


Gruß Uwe
Anzeige
AW: Per VBA Ordner anlegen mit Namen aus Zellen
20.11.2024 10:57:12
MCO
Hallo AxelF!

Was ich gemacht habe:

  • Variable dimensioniert
  • Pfadteile in Variable gepackt um es übersichtlicher zu machen
    • Nur Pfade mit variablem Anteil sind in der Schleife.

  • Schleife gebaut für jeden Pfad, der zu prüfen ist bzw Ordner anzulegen
  • Schleife gebaut um jede gefüllte Zelle in B den Pfad aus "F" zu vervollständigen (vorher "F173")

    • Private Sub Create_Folder()

    

        Dim strDateiname As String

        Dim strFolderPath01 As String

        Dim strFolderPath02 As String

        Dim strFolderPath03 As String

        Dim strFolderPath04 As String

        Dim strFolderPath05 As String

        Dim strFolderPath06 As String

        Dim pfad_array As Variant

    

        Teil_A As String

        Teil_B As String

        Teil_D As String

        Teil_D As String

        

        Teil_A = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\" & Format(Now, "yyyy") & "\Beispiel02\"

        Teil_B = Format(Now, "mm") & " " & Format(Now, "mmmm") & " " & Format(Now, "yyyy") & "\"

        Teil_C = Format(Now, "dd.mm") & " " & "Lokal" & "\"

        

        strFolderPath01 = Teil_A

        strFolderPath02 = Teil_A & Teil_B

        strFolderPath03 = Teil_A & Teil_B & Teil_C

        

        For Each cl In Range("B1:B200").SpecialCells(xlConstants)

            

            Teil_D = Range("F" & cl.Row).Text

    

            strFolderPath04 = strFolderPath03 & Teil_D & "\"

            strFolderPath05 = strFolderPath03 & Teil_D & "\" & "Beispiel03"

            strFolderPath06 = strFolderPath03 & Teil_D & "\" & "Beispiel04"

            

            pfad_array = Array(strFolderPath01, strFolderPath02, strFolderPath03, strFolderPath04, strFolderPath05, strFolderPath06)

            

            For I = 0 To UBound(pfad_array)

                If Dir(pfad_array(I), vbDirectory) = "" Then

                    ' Ordner anlegen

                    MkDir (pfad_array(I))

                Else

                    ' mache irgendwas

                End If

            Next I

        Next cl

        

        'Ordner öffnen

        Call Shell("explorer.exe" & " " & strFolderPath03, vbNormalFocus)

        

    End Sub


    Schau mal, ob das passt

    Gruß, MCO
    Anzeige
    AW: Per VBA Ordner anlegen mit Namen aus Zellen
    20.11.2024 11:00:46
    Onur
    Ist es so nicht etwas übersichtlicher? 

        Dim strDateiname As String

        Dim pa, j, m1, m2, txt

        pa = "C:\Users\" & Environ("Username") & "\Documents\Beispiel01\"

        j = Format(Now, "yyyy")

        m1 = Format(Now, "mm")

        m2 = Format(Now, "mmmm")

        dm = Format(Now, "dd.mm")

        txt = Range("F173").Text

        strFolderPath01 = pa & j & "\Beispiel02\"

        strFolderPath02 = strFolderPath01 & m1 & " " & m2 & " " & j & "\"

        strFolderPath03 = strFolderPath02 & dm & " " & "Lokal" & "\"

        strFolderPath04 = strFolderPath03 & txt & "\"

        strFolderPath05 = strFolderPath04 & "Beispiel03"

        strFolderPath06 = strFolderPath04 & "Beispiel04"

        

        If Dir(strFolderPath01, vbDirectory) = "" Then

        ....

        ....
    Anzeige
    AW: Per VBA Ordner anlegen mit Namen aus Zellen
    20.11.2024 13:41:13
    daniel
    Hi
    in deinem Beispiel kommt Spalte B nicht vor!
    das macht es schwierig, aus deinem Code ein passendes Beispiel zu erstellen.

    eine schleife über alle Textwerte in Spalte B könnte so aussehen.
    das SpecialCells wählt dann aus der Spalte B die Zellen aus, die einen konstanten (xlcelltypeconstants) Text (die 2) enthalten.
    in der Spalte sollte aber mindestens eine Zelle mit Text vorhanden sein, wenn das .SpecialCells keine passende Zelle finden kann, gibt es einen Fehler 
    dim rngB as range

    for each rngB in Sheet("MG Werte").Range("B:B").SpecialCells(xlcelltypeconstants, 2)

       'rngB.Value ist dann die Variable mit dem jeweiligen Text

    next



    das nächste Problem:
    mkDir kann immer nur eine Ordnerstufe anlegen, dh in einem vorhandenen Ordner EINEN neuen Ordner anlegen.
    wenn die API-Funktion nicht erwünscht ist, kann man auch mit einer kleinen Schleife regeln, dass ein Ordner immer angelegt wird, auch in mehreren Stufen gleichzeitig.
    ist der Ordner schon vorhanden, läuft die Schleife durch ohne das etwas passiert. 

    Sub OrdnerErstellen()

    Dim p As Long

    Dim OrdnerPfad As String

    OrdnerPfad = "C:\Users\xxxxx\Downloads\Test1\Test2\" 'anzulegende Ordnerstrkutur mit "\" am Ende

    p = 0

    Do

        p = InStr(p + 1, OrdnerPfad, "\")

        If p = 0 Then Exit Do

        If Dir(Left(OrdnerPfad, p - 1), vbDirectory) = "" Then MkDir Left(OrdnerPfad, p - 1)

    Loop

    End Sub


    Gruß Daniel
    Anzeige
    AW: Per VBA Ordner anlegen mit Namen aus Zellen
    20.11.2024 14:51:53
    AxelF1977
    Hallo an alle die geholfen haben,

    vielen Dank!!!

    Am Ende bin ich mit dem Vorschlag von MCO am besten klar gekommen und konnte es auf meine Gegebenheiten genau anpassen.

    Es ist sehr spannend zu sehen, wie unterschiedlich man an ein Thema gehen kann, klasse, ich habe viel mitgenommen.

    Danke nochmal an alle für die Hilfe und Eure Zeit.
    Anzeige

    Forumthreads zu verwandten Themen

    Zellwerte als Ordner erstellen, Leerzeichen
    Bernd

    Wünsche einen schönen guten Morgen,
    Michael (migre) hat mir Super bei meinem Beitrag:
    https://www.herber.de/forum/archiv/1436to1440/t1436325.htm
    geholfen. Der Code funktioniert einwandfrei und erledigt auch meine Vorstellungen, wie nach Wunsch. Musste einen neuen Beitrag schreiben,...
    20.07.2015 07:14:31
    Thread-ID: 1437304
    2 Beiträge
    Passwort für x Dateien in Unterordnern ändern
    Viktoria

    Hallo zusammen,
    ich hab mal wieder ein VBA-Problem und komme nicht weiter.
    Ziel soll sein, dass in einem Ordner mit verschiedenen Unterordnern in allen Excel-Dateien, die dort abliegen ein bestehendes Passwort zum Öffnen in ein neues geändert wird. Ich dachte ich könnte hierfür einfach...
    20.01.2016 17:50:29
    Thread-ID: 1470067
    4 Beiträge
    Problem beim Öffnen von Word aus Excel
    Word
    Hallo,
    ich benötige eure Hilfe. Ich habe auf einem Rechner eine Excel-Datei mit Excel 15.0 und auf dem anderen Rechner Excel 16.0.
    Mit dieser Excel-Datei möchte ich eine Word-Vorlage öffnen, welche einen Zugriff auf Excel macht.
    Wenn ich diese Datei veranlasse die Wordvorlage zu öffnen k...
    07.11.2021 14:07:44
    Thread-ID: 1855415
    5 Beiträge
    Problem beim Schliessen Worddokument
    Peter

    Hallo,
    ich benötige dringend eure Hilfe. Ich habe eine sehr umfangreiche Exceldatei. In einer älteren Version kein Fehler. In neuerer Version kommt eine Messagebox mit folgendem Hinweis:
    "Microsoft VBA Objekt variable oder With Blockvariable nicht festgelegt" mit OK Button und Hilfe But...
    11.12.2020 10:08:11
    Thread-ID: 1799053
    2 Beiträge
    Ausgewählter Dateipfad in Zelle
    Hendrik

    Hallo zusammen,
    ich bräuchte nochmal Eure Hilfe...
    Ich habe folgenden VBA-Code, der Dateinamen, die in einem Ordner stehen (den Ordner wähle ich selbst durch die Funktion aus), in Zelle A1 bis A100 schreibt.
    Nun soll aber der gesamte Dateipfad des zuvor ausgewählten Ordner in Zelle...
    20.07.2016 17:53:10
    Thread-ID: 1505436
    3 Beiträge
    VBA "versteckte Backups"
    Excel
    Hallo zusammen,
    ich möchte niemanden langweilen und komme deswegen direkt zur Sache:
    Ich habe ein Excel-Zeiterfassungstool erstellt, in welchem bereits mehrere, funktionierende Makros laufen. Leider habe ich 2 Probleme:
    1) Ich möchte einen VBA Code schreiben, welcher a) in dem Verzeichni...
    11.09.2021 22:22:21
    Thread-ID: 1847080
    2 Beiträge
    Mehrere Dateien in einem Ordner öffnen
    Stefan

    Guten Tag zusammen,
    ich bräuchte mal eure Hilfe. Ich möchte gerne Daten aus mehreren Dateien (die alle die selbe Struktur haben und in einem Ordner liegen) zusammen rechnen und in eine neu erstellte Zieldatei einfügen. Das Funktioniert soweit auch, nur würde ich gerne vermeiden das man per...
    27.08.2019 19:18:36
    Thread-ID: 1709773
    3 Beiträge
    Anzeige
    über VBA Dateien auf einen SSH Server Laden
    Stefan
    Guten Abend Gemeinende

    Ich habe etwas gesucht aber nicht wirklich etwas passendes gefunden.

    Folgende Ausgangssituation:
    im Tabellen Blatt "BMB" in der Zeile M9 wird eine Kundennummer/ Maschinennummer eingegeben.
    wenn diese im Tabellen Blatt "Kundenliste" existiert, werden...
    12.09.2024 21:45:38
    Thread-ID: 1990878
    1 Beitrag
    Pfad per VBA auslesen
    André

    Guten Morgen,
    ich habe folgendes Makro im Archiv gefunden, welches auch perfekt funktioniert.
    Allerdings möchte ich den Pfad, in dem sich die Dateien befinden nicht im Makro eingeben, sondern mittels Fenster, welches sich öffnet, eingeben bzw. wie im Explorer möglich hinverzweigen. Wäre...
    09.07.2015 11:53:19
    Thread-ID: 1435392
    11 Beiträge
    bestimmten Ordner mit Inhalt öffnen
    Richard

    Guten Tag Excelgemeinde,
    es wäre nett wenn mich jemand unterstützen könnte.
    habe eine Userform bei Markierung einer Spalte wird mit Tastendruck bestimmte Textfelder befüllt. das Textfeld txtOrdner soll der Ordnername mit einem Button im Explorer mit Inhalt geöffnet werden. Aber es fun...
    14.04.2018 20:52:10
    Thread-ID: 1619655
    2 Beiträge
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Live-Forum - Die aktuellen Beiträge
    Datum
    Titel
    14.05.2026 13:31:09
    Zeichen ausblenden
    14.05.2026 09:50:42
    Makro für MacOs
    13.05.2026 19:14:18
    Gleichheitszeichen
    13.05.2026 14:24:56
    VBA Projekt Passwort automatisch eingeben
    13.05.2026 08:49:41
    Reale Berechnung ohne Nachkommawerte
    Keine passende Antwort im Forumarchiv gefunden?
    Stelle deine Frage im Live-Forum