Fehlermedlung
23.11.2008 14:22:08
Alex
Wenn ich den unten angegeben Befehl ausführe kommt folgende Fehlermeldung:
Fehler beim kompilieren:
Sub oder Function nicht definiert
Sub Ordner_Neu_Beratungen()
Dim strPath As String
strPath = ThisWorkbook.Path & "\Kunden\" & Tabelle2.Range("j13").Text & "\Beratungen\"
MakeSureDirectoryPathExists strPath
End Sub
Kann mir einer helfen?
Vielen Dank für Deine Unterstützung!
Gruß
Alex
Anzeige