Office: MkDir Pfad Fehlermeldung

AliceD · 21. Januar 2019

Hali Halo Halöle,

ich hänge mal wieder gerade an einem kleinen Problem.
Ich möchte einen Ordner erstellen und nutze dazu:
Code:

Sub Ordner_erstellen()
Const Pfad As String = "C:UsersDesktopKramkisteTest Ziel"
If Dir(Pfad & Range("D2") & "/nul") = "" And Range("D2") "" Then
MkDir Pfad & Range("D2")
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert auch einwandfrei, solange "D2" einen einfachen Wert besitzt zB ein Datum, ABER ich brauche mehr Informationen und habe deshalb
(A2-Datum, B2-Uhrzeit und eine C2-Registriernummer) in D2 zusammengeführt...
Code:

Private Sub CommandButton2_Click()
With Worksheets("Tabelle1")
Range("D2").Value = .Range("A2").Text & "-" & .Range("B2").Text & "-" & .Range("C2").Text
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktionert auch, aber wenn ich dann den Ordner erstelle, kommt die Fehlermeldung: "Pfad nicht gefunden"? häh
erlaubt MkDir Pfad bestimmte Zeichen nicht?
Danke euch.

:)

MisterBurns · 23. Januar 2019

Ein Pfad erlaubt mehrere Zeichen nicht...
/ \ : * ? " < >

Und wieso machst du aus Range("D2") einen Wert, während die Zellen A2, B2 und D2 Text enthalten? Ergibt nicht so richtig viel Sinn.

EarlFred · 23. Januar 2019

Häh? Jo. Genauso wie Windows auch.

AliceD · 23. Januar 2019

ach Mist... der DoppelPunkt der Zeit ist das Problem...
an den hab ich nicht mehr gedacht... ^^ Daaaanke

AliceD · 23. Januar 2019

dürfte ich mal noch gleich was hinterherschieben?
Wenn ich jetzt Dateien aus einem Ordner in diesen kopieren möchte, welche Methode wäre da die geeignetste?
Code:

Sub Move_File()
Dim myFSO As Object
Dim Quelle As String, Ziel As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
Quelle = "C:test.xls"
Ziel = "D:test.xls"
myFSO.MoveFile Quelle, Ziel
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nimmt ja nur Dateien eines bestimmten Typs und bei der ZielQuelle, kann ich mein Range("D2") ja nicht verwenden? Danke.

edit: habs hinbekommen, danke trotzdem *biggrin.gif*

AliceD · 23. Januar 2019

edit: erledigt

Office: MkDir Pfad Fehlermeldung

MkDir Pfad Fehlermeldung

MkDir Pfad Fehlermeldung

MkDir Pfad Fehlermeldung

MkDir Pfad Fehlermeldung - Similar Threads - MkDir Pfad Fehlermeldung

Dynamischer Pfad

Den Pfad verändern

Fehler beim Zugriff auf Pfad/Datei

Pfad standardisieren

Komplexes Makro ohne Ahnung :-/

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Ordner auf Fileserver automatisch kopieren