Fehlerbehandlung muss erweitert werden
07.02.2024 11:28:41
mb12
nach mehreren Jahren kam auf, dass die Fehlerroutine nicht funktioniert, wenn in der Zelle A1 oder B1 kein Wert eingetragen wurde - dann nimmt das Makro eben nur den existierenden Wert und alles ist gut. Nein, ist natürlich nicht gut, denn in A1 sollte die Auftragsnummer, in B1 der Kundenname stehen, damit die Übersichtlichkeit gewahrt bleibt.
Wie ergänze ich das Makro? Lieben Dank im Voraus.
Margarete
Private Sub CommandButton1_Click()
'+++++++++++++++++++++++++++
'Ablaufplan in neuen Ordner speichern
'+++++++++++++++++++++++++++
Dim strPath As String, strFile As String, strPathNew As String, strDir As String
strFile = Range("A1").Text & " " & Range("B1").Text & " " & "Ablaufplan" & ".xlsm" 'fehlender Eintrag in A1 ODER B1 --> Fehler!!!
strPath = "X:\ALS\12_Projekte+VK-Preise\" & Cells(1, 5).Text & "\" 'Cells(1, 5) = Produktbereich (E1)
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