Hallo Uwe, super!!!
Das hat geklappt, er hat den Ordner wie gewünscht erstellt-SEHR GUT !!!!
Ich habe schon alles mögliche probiert (s. unten).
Die letzte Code-Zeile wird km Debugger angezeigt, der Ordner wurde aber erstellt... .
FileCopy Pfad_VorlageDatei, aktuellerPfad & OrdnerNeu & "\" & "Schüler" & OrdnerNeu & FileExt
__
Sub OrdnerErstellen()
Dim OrdnerNeu As String
Const BasisPfad As String = "\\...\Lehrgänge\.RS-G"
OrdnerNeu = ActiveSheet.Range("B1").Text
If Not Dir(BasisPfad & "\" & OrdnerNeu) = "" Then
VBA.MkDir BasisPfad & "\" & OrdnerNeu
Else
MsgBox "Verzeichnis " & BasisPfad & "\" & OrdnerNeu & " existiert bereits!"
End If
End Sub
In diesem Makro wollte ich einen neuen Ordner aus einer Tabelle heraus erstellen, der dann den Namen aus "B1" erhalten sollte.
Also praktisch "\\...\Lehrgänge\.RS-G" &"\" &Wert aus B1.
In dem Makrohat er mir aber immer gesagt, dass es den Ordner schon gibt, was nicht stimmt... .
|