ich habe aus dem archiv und der recherche gesichteten Artikel untenstehenden code zusammen gebastelt. aber natürlich funzt der nicht. bei betätigung des buttons sollte folgendes passieren:
1. excel checkt ob bereits ein verzeichnis im ordner f:\Ablage vorhanden ist mit derselben bezeichnung wie im feld "H19" auf dem tabellenblatt. wenn ja soll eine msgbox erscheinen und wenn nicht soll ein verzeichnis mit dieser bezeichnung aus "H19" unter dem pfad f:\Ablage angelegt werden.
hier der code:
Private Sub CommandButton2_Click()
Sicherung
End Sub
---------------
Sub Sicherung()
defPath = "f:\Ablage\"
myFolder = Range("H19")
If Not IstMappeDa(defPath & myFolder) Then
MkDir defPath & myFolder
Else: MsgBox ("abc.")
End If
End Sub
---------------
Function IstMappeDa(Map As String) As Boolean
If (Dir(Map) <> "") Then
IstMappeDa = True
Else
IstMappeDa = False
End If
End Function
excel legt zwar den ordner an wenn keiner unter diesem namen existiert, doch wenn einer bereits vorhanden ist zeigt er ein fehler an (fehler beim zugriff auf pfad/datei). ich habe es wirklich probiert, aber es funzt einfach nicht! vielen dank für eure hilfe.
beate.