auf Anraten erstelle ich einen neuen Post....
ich habe diesen Code womit ein neuer Ordner aus einen Vorlagen Ordner erstellt wird. Jetzt hätte ich es noch gerne das im selben Zug noch ein Hyperlink gesetzt wird von der aktiven Zelle Spalte "C" auf diesen neu erstellten Ordner.
Hier ist mein Code:
Option Explicit
' Ein neuer Ordern wird im Ordner "Kabelarbeiten" erstellt als Kopie des Ordners "Vorlage"
' Die Benennung erfolgt aus den Spalten D & C
Sub NeuerOrdnerAnlegenFinalKurz()
Dim varMaster As String, varVorlage As String, varSpalten As String, varNeu As String
varMaster = "//dbsw.sharepoint.com\sites\TeamKabe\Freigegebene Dokumente\Ort\Kabelarbeiten\"
varVorlage = varMaster & "Vorlage"
varSpalten = Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value
varNeu = varMaster & varSpalten
If Dir(varNeu, 16) = "" Then
CreateObject("Scripting.FileSystemObject").CopyFolder varVorlage, varNeu 'kopieren und _
umbenennen
MsgBox "Der Ordner:" & vbLf & vbLf & varSpalten & vbLf & vbLf & "wurde angelegt.", _
vbOKOnly, _
"Kabelarbeiten" 'angelegt
Else
MsgBox "Der Ordner:" & vbCr & vbCr & varSpalten & vbCr & vbCr & " ist bereits vorhanden!", _
_
_
_
vbCritical, "Kabelarbeiten" 'vorhanden
End If
End Sub
Wäre sowas machbar?
Gruß Volker