|
Hi,
freut mich das ich dir weiter helfen konnte :)
"Hab ich auch die Möglichkeit das so zu ändern das der "Kunde - Projekt" in Zelle B1 steht? Wo genau hast du im Code festgelgt das das in A1 steht?"
Klar, der Code spezifiert die Zelle nicht weiter, er wird allerdings nur aus der Spalte A heraus ausgelöst. Wenn du in zwei Zellen schreibst müsste man nur ein anderes Ereignis zum Auslösen des Makros verwenden, z.B. einen CommandButton.
Sub OrdnerstrukturAnlegen()
Dim Projekt$, Kunde$
Dim R&
R = ActiveCell.Row
Kunde = Cells(R, 1)
Projekt = Cells(R, 2)
strPath = "O:\Kunden\" & Kunde & "\" & Projekt
createFullPath strPath
Cells(R, 2).Hyperlinks.Add Target, strPath
End Sub
Das Makro müsste man nur noch mit einem Auslöser (z.B. CommandButton) verbinden (dann wird für die selektierte Zeile die Ordnerstruktur entsprechend angelegt).
Zusätzlich müsste man sich noch um eine ensprechende Fehlerbehandlung kümmern (z.B. wenn eine der beiden Zellen leer ist).
Gruß
Till
|