Ordner erstellen Liste in Spalte A und B - Link in Spalte C

Frage: In Spalte A und B habe ich eine fortlaufende Liste. Aus diese beiden Werten - also z. B. A1 und B1 - sollen Ordner erstellt werden. In Spalte C soll ein Link zu dem neu erstellten Ordner gelegt werden. Wie geht das?

Option Explicit
Declare Function MakeSureDirectoryPathExists _
    Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Const strPath As String = "C:\Temp\" ' adapt
Public Sub Main()
    Dim lngCount As Long
    With ThisWorkbook.Worksheets("Sheet1") ' adapt
        For lngCount = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            MakeSureDirectoryPathExists strPath & .Cells(lngCount, 1).Text & _
                "_" & .Cells(lngCount, 2).Text & "\"
            .Hyperlinks.Add _
                Anchor:=.Cells(lngCount, 3), _
                Address:=strPath & .Cells(lngCount, 1).Text & "_" & _
                    .Cells(lngCount, 2).Text & "\", _
                    TextToDisplay:=.Cells(lngCount, 1).Text
        Next lngCount
    End With
End Sub

Hier noch eine Beispieldatei: Sample

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...