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
|