MsgBox bei Abbrechen statt Debuggen!
28.02.2005 13:45:39
DonFiala
hab mein Makro fast fertig und es fehlt nur noch ne Kleinigkeit! Wie krieg ich es hin, dass wenn ich in nachfolgendem Makro nicht Speicher, sondern auf Abbrechen drücke nicht debuggen erscheint sondern ne Messagebox mit dem Hinweis das die Datei nicht gespeichert wurde.
Die Krönung wäre, wenn bei nicht erfolgreichem Speichern - wenn der Pfad falsch ist - auch ne entsprechende Fehlermeldung möglich wäre!
Denke mal bei letztgenanntem brauchts gar keine komplizierte Abfrage, da es ja nur der zweite nicht erfolgreich gespeicherte Fall ist und dann wieder debuggen erscheinen würde...
1000 Dank an die VBA Götter im Forum!
Gruss michi
Dim DName As String, Dateiname As String, Pfad As String
Pfad = Range("U2")
DName = Range("R2")
Dateiname = Pfad & "\" & DName & Format(Range("G7"), "YYYY.MMM") & ".xls"
' Tagesdatum als "Jahr.Monat.Tag" wegen Exploreransicht!
ActiveWorkbook.SaveAs Filename:=Dateiname
MsgBox "Datei wurde erfolgreich unter dem Namen " & ActiveWorkbook.Name & " gespeichert."
ActiveWorkbook.Close
End Sub