- Ordner kopieren und umbenennen
29.12.2019 21:25:37
Volker
ich versuche über VBA einen Ordern auf Sharepoint zu erstellen. Es soll erst geprüft werden ob der Ordner vorhanden ist und wenn nicht soll ein neuer Ordner aus einer Vorlage die im selben Verzeichnis liegt kopiert werden.
Auf meinen Rechner funktioniert lokal das Ordner erstellen im OneDrive Ordner. Jetzt möchte ich das der Ordner direkt im Sharepoint erstellt wird damit auch andere Kollegen das Makro nutzen können. Die Excel Liste liegt auch auf dem Sharepoint
Wenn der Code ausgeführt wird kommt die Fehlermeldung: Laufzeitfehler:76 Pfad nicht gefunden.
Mein Ordner "Vorlage" wird aber trotzdem kopiert (b.z.w. nur das erste Verzeichnis im Ordner und dann gibt es Probleme mit Umlauten, aus "Lagepläne" wird: "Lagepläne")
Allerdings auch nicht in das Verzeichnis: "\Kabelarbeiten" sondern in das Verzeichnis dadrüber "\Ort"
Dort hat der Ordner auch noch einen falschen Namen bekommen. Eigentlich sollte der Ordner aus der Spalte D & G benannt werden. Jetzt besteht es aus "KabelarbeitenD & G"
Zusammengefasst sollte es so aussehen: //dbsw.sharepoint.com\sites\TeamKabe\Freigegebene Dokumente\Ort\Kabelarbeiten\SpalteD&G
Im Moment ist es aber: //dbsw.sharepoint.com\sites\TeamKabe\Freigegebene Dokumente\Ort\KabelarbeitenSpalteD&G
Ich hoffe jemand ist so nett und hilft mir weiter....mir fällt langsam nichts mehr ein....
hier mein Code:
Sub NeuerOrdnerAnlegenFinalKurz()
'Ein neuer Ordern wird im Ordner "Kabelarbeiten" erstellt als Kopie des Ordners "Vorlage" Die _
Benennung erfolgt aus den Spalten D & C
varKabelarbeiten = "//dbsw.sharepoint.com\sites\TeamKabe\Freigegebene Dokumente\Ort\ _
Kabelarbeiten" 'Variable, zum Pfad Ordner "Kabelarbeiten"
varVorlage = "//dbsw.sharepoint.com\sites\TeamKabe\Freigegebene Dokumente\Ort\Kabelarbeiten\ _
Vorlage"
With ActiveCell 'Die aktive Zelle
varSpalten = Cells(.Row, 4) & " " & Cells(.Row, 3) 'Variable, Auswahl der _
Spalten E & D
End With
If Dir(varKabelarbeiten & varSpalten, 16) = "" Then
CreateObject("Scripting.FileSystemObject").CopyFolder varVorlage, varKabelarbeiten & _
varSpalten '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