SaveAs-Methode überlisten
22.11.2017 08:23:11
MB12
Kleines Makro zum Anlegen neuer Projektordner:
Private Sub CommandButton1_Click()
Dim strPath As String, strFile As String, strPathNew As String, strDir As String
strFile = Range("A1").Text & " " & Range("B1").Text & " " & "Ablaufplan" & ".xlsm"
strPath = "X:\ALS\12_Projekte+VK-Preise\" & Cells(1, 5).Text & "\"
strDir = Range("A1").Text & " " & Range("B1").Text
strPathNew = strPath & strDir & "\"
If CBool(MakeSureDirectoryPathExists(strPathNew)) Then
ThisWorkbook.SaveAs Filename:=strPathNew & strFile
Else
MsgBox "Fehler beim anlegen des Pfades: " & strPath
End If
End Sub
Nach einigen Versuchen habe ich herausgefunden, dass die Fehlermeldung "SaveAs-Methode fehlgeschlagen" immer dann kommt, wenn der Kunden-Nickname, der in B1 steht, nur 2 Stellen hat.
Wir würden ungern die Einträge ändern, sondern lieber die Makros (mehrere ähnliche)...
Danke für jeden Ratschlag
Beste Grüße, Margarete