If Schleife Ordner prüfen ggf erstellen
19.12.2019 08:20:01
Mario
Heute habe ich (für mich) ein großes Excel-Problem, für euch alte Hasen wahrscheinlich beim ersten Anblick gelöst ;)
Kurzbeschreibung:
Das Script durchläuft einen Planungskalender, wenn in einer Zelle eine Auftragsummer steht, dann wird die auf den Sharepoint verlinkt. So weit so gut. Es wird halt verlinkt, egal ob der Ordner besteht oder nicht. Nun möchte ich gerne dass er prüft ob der Ordner schon besteht, und wenn nicht, erstellt wird. Ich hab Schwierigkeiten mit Schleifen ...
gedacht ist das so:
wenn Zelle leer, dann mach nix.
wenn nicht, prüfe ob ordner besteht
wenn ordner besteht, verlinken
wenn ordner nicht besteht, erstellen, dann verlinken.
hier mal das Script:
Sub hyper_hyper()
Dim Zelle As Range
Dim rngReihe As Range
Dim letzte As Long
Dim xpfad As String
letzte = Cells(Rows.Count, 1).End(xlToRight).Row
Set rngReihe = Range("C4:A" & letzte)
Set rngReihe = Range("C4:CTP4")
xpfad = "D:\Users\BKU\hanswurst\PD Freiburg - Bauakte\1\"
For Each Zelle In rngReihe
If Zelle = "" Then 'wenn zelle leer, dann mach nix
Else 'wenn Zelle nicht leer
ActiveSheet.Hyperlinks.Add Anchor:=Zelle, Address:="https://dbsw.sharepoint.com/:f:/r/sites/ _
PDFreiburg/Instandsetzung/IS%20Haltingen/Bauakte/" & Zelle.Value & "/"
End If
If Dir(xpfad & Zelle.Value) "" Then 'Prüfen ob der Ordner besteht
Else
'MsgBox (xpfad & Zelle.Value & "\")
MkDir (xpfad & Zelle.Value)
End If
Next
End Sub
Könnt ihr mir bitte bei der Schleife auf die Sprünge helfen ?
Da man mit mkdir nicht ohne Weiteres im Sharepoint rummachen kann, bin ich den umweg gegangen dass ich mir den Sharepoint Ordner synchronisiere und eben in dem Ordner meine Dateiorperationen durchführe.
Vielen Dank für dir Hilfe