Hallo zusammen,

ich habe folgenen Code der funktioniert: ;-)

Sub NeuerOrdnerAnlegenFinalKurz()
'Ein neuer Ordern wird im Ordner "Kabelarbeiten" erstellt als Kopie des Ordners "Vorlage" Die Benennung erfolgt aus den Spalten D & C
  c00 = "..\Desktop\Kabelarbeiten\"                           'Variable, zum Pfad Ordner "Kabelarbeiten"
  With ActiveCell                                             
     c01 = Cells(.Row, 4) & " " & Cells(.Row, 3)              'Variable, Auswahl der Spalten E & D
  End With
 
    If Dir(c00 & c01, 16) = "" Then                           'Wenn Ordner nicht vorhanden dann....
        CreateObject("Scripting.FileSystemObject").CopyFolder c00 & "\Vorlage", c00 & c01         'kopiere Ordern und benenne um
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & "wurde angelegt.", vbOKOnly, "Kabelarbeiten"             'MessageBox wurde angelegt
    Else
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & " ist bereits vorhanden!", vbCritical, "Kabelarbeiten"   'MessageBox bereits vorhanden
    End If
End Sub

Jetzt würde ich gerne nachdem ein neuer Ordner aus der Vorlage erstellt wurde noch zusätzlich eine Hyperlink einfügen von der aktiven Zeile, Zelle 3 auf den neuen  Ordner. 

Leider habe ich sehr wenig Ahnung von VBA und hoffe das mir jemand eine Tip geben kann wie ich das Problem lösen kann.

Gruß Volker