Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Verzeichnisse aus Zellen schreiben

Betrifft: Verzeichnisse aus Zellen schreiben von: Maris
Geschrieben am: 29.10.2020 13:01:34

Hallo zusammen,

ich hatte mir mal ein Macro zusammengeschustert das mir geholfen hatte aus Zellen einen Pfad für Windows zu schreiben. Hier der Code:

Sub ordner_pruefen_und_anlegen()
Dim sVerz As String
Dim strname As String
Dim strnummer As String
For i = 2 To 1000
strname = Cells(i, 1)
sVerz = PROBLEM NR 1. :der Pfad für das Hauptverzeichnis steht in Zelle N8 (Hier stand ein  _
fester Pfad, der soll dynamisch sein und liegt deswegen in der Zelle N8)
If sVerz = "" Then MkDir...
Next i
End Sub
PROBLEM NR 2. In den Zellen der Spalte V steht ab Zeile 8 der vollständige Ordnername der an den Pfad angehangen werden soll von oben. Leider kommen auch doppelte Werte in der Spalte V vor und der Ordner soll aber nur 1 mal erstellt werden.

Kann jemand helfen?

Gruß
Maris

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Oberschlumpf
Geschrieben am: 29.10.2020 13:18:39

Hi Maris,

mit einer Excel-Bsp-Datei, per Upload, die dein Problem erkennen lässt, kann man bestimmt einfacher eine Lösung erarbeiten.

Ciao
Thorsten

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Maris
Geschrieben am: 29.10.2020 13:35:08

Sorry Leute! Hier die Datei:

https://www.herber.de/bbs/user/141167.xlsx

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Nepumuk
Geschrieben am: 29.10.2020 13:19:11

Hallo Maris,

ich kann dir nicht ganz folgen. Kannst du eine Mustermappe hochladen?

Gruß
Nepumuk

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Maris
Geschrieben am: 29.10.2020 13:35:18

Sorry Leute! Hier die Datei:

https://www.herber.de/bbs/user/141167.xlsx

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Nepumuk
Geschrieben am: 29.10.2020 13:44:19

Hallo Maris,

ich kann dir immer noch nicht folgen. Ok, ich sehe "C:\Users\Christian\Produktanalge\Temp\" aber welcher Pfad soll nun erstellt werden?

Gruß
Nepumuk

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Maris
Geschrieben am: 29.10.2020 13:50:24

Hier ein vollständiges Beispiel:

Verzeichnis (aus Zelle N3) + Ordner (aus Spalte V)

C:\Users\Christian\Produktanalge\Temp\produkte\produkt_a
C:\Users\Christian\Produktanalge\Temp\produkte\produkt_b
C:\Users\Christian\Produktanalge\Temp\produkte\produkt_c

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Nepumuk
Geschrieben am: 29.10.2020 14:06:54

Hallo Maris,

teste mal:

Option Explicit

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal DirPath As String) As Long

Public Sub CreateFolders()
    Dim strFolder As String, strSubFolder As String
    Dim lngRow As Long, lngReturn As Long
    With Worksheets("Datentabelle")
        strFolder = .Cells(3, 14).Text
        For lngRow = 6 To .Cells(.Rows.Count, 22).End(xlUp).Row
            strSubFolder = .Cells(lngRow, 22).Text
            If Right$(strSubFolder, 1) <> "\" Then strSubFolder = strSubFolder & "\"
            strSubFolder = Replace(strSubFolder, "/", "\")
            lngReturn = MakeSureDirectoryPathExists(strFolder & strSubFolder)
            If lngReturn = 0 Then
                Call MsgBox("Fehler beim Erstellen des Ordners.", vbCritical, "Dateisystemfehler")
                Exit For
            End If
        Next
    End With
End Sub

Gruß
Nepumuk

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Maris
Geschrieben am: 29.10.2020 14:22:24

Klappt schon fast :-)!!! Leider wird der Ordner aber so angelegt:

C:\Users\Christian\Produktanalge\Temp\produkteprodukt\_a

Gruß
Maris

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Nepumuk
Geschrieben am: 29.10.2020 14:28:07

Hallo Maris,

nicht in deiner Mustermappe:

https://www.herber.de/bbs/user/141168.xlsm

Gruß
Nepumuk

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Maris
Geschrieben am: 29.10.2020 14:32:25

Fehler war, weil ich am Verzeichnisende kein "\" gemacht habe. Kann man das noch abfangen. Ansonsten funktioniert es einwandfrei. Vielen lieben Dank :-)!

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Nepumuk
Geschrieben am: 29.10.2020 14:39:42

Hallo Maris,

so?

Option Explicit

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal DirPath As String) As Long

Public Sub CreateFolders()
    Dim strFolder As String, strSubFolder As String
    Dim lngRow As Long, lngReturn As Long
    With Worksheets("Datentabelle")
        strFolder = .Cells(3, 14).Text
        If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
        For lngRow = 6 To .Cells(.Rows.Count, 22).End(xlUp).Row
            strSubFolder = .Cells(lngRow, 22).Text
            If Right$(strSubFolder, 1) <> "\" Then strSubFolder = strSubFolder & "\"
            strSubFolder = Replace(strSubFolder, "/", "\")
            lngReturn = MakeSureDirectoryPathExists(strFolder & strSubFolder)
            If lngReturn = 0 Then
                Call MsgBox("Fehler beim Erstellen des Ordners.", vbCritical, "Dateisystemfehler")
                Exit For
            End If
        Next
    End With
End Sub

Gruß
Nepumuk

Betrifft: AW: Verzeichnisse aus Zellen schreiben
von: Maris
Geschrieben am: 29.10.2020 14:48:02

Genau! Perfekt :-)! Danke dir!

Beiträge aus dem Excel-Forum zum Thema "Verzeichnisse aus Zellen schreiben"