Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler beim speichern

Forumthread: Fehler beim speichern

Fehler beim speichern
09.08.2002 07:32:39
Detlef
Hallo zusammen,
mit dem beigefügten Code speichere ich einen Bericht
ab. Funktioniert einwandfrei, nur wenn ich bei Ausführung
des Makros (Dialog speichern) auf abbrechen klicke, wird dann
die Datei mit den Namen Falsch.xls abgespeichert. Wie kann ich
dies verhindern ?
Vielen Dank für Eure Hilfe.

Sub Speichernbericht()
Dim ws As Worksheet
Set ws = Worksheets("Bericht")
ws.SaveAs Application.GetSaveAsFilename
("C:\Daten\Erfassung \" & ws.Range("B6") & "." _
& ws.Range("B1") & "." & ws.Range("H1") & ".xls")
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fehler beim speichern
09.08.2002 08:37:48
Herbert
So müßte es funktionieren:
Gruß Herbert

Sub Speichernbericht()
Application.DisplayAlerts = False
Dim ws As Worksheet
Set ws = Worksheets("Bericht")
ws.SaveAs Application.GetSaveAsFilename _
("C:\Daten\Erfassung \" & ws.Range("B6") & "." _
& ws.Range("H1") & "." & ws.Range("H1") & ".xls")
Application.DisplayAlerts = True
End Sub
   
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige