Datei speichern - VBA | HERBERS Excel Forum

Moin,
folgender Code will nicht so recht und ich hab keine Ahnung warum:


Sub Speichern()
Dim Dateiname As String
Dateiname = Application.InputBox(prompt:="Bitte Dateinamen eingeben:")
If Dateiname = False Then
Application.DisplayAlert = False
ActiveWorkbook.Close
Else
ActiveWorkbook.SaveAs Filename:="G:\" & Dateiname
ActiveWorkbook.Close
End If
Application.DisplayAlerts = True
End Sub

Er soll nach nem Dateinamen fragen (tut er), bei Klick auf Abbrechen soll er die Datei meldungslos schliessen (tut er nich), Bei Klick auf OK unter dem angegebenem Dateinamen speichern (tut er auch nich).
Ich steh auf dem Schlauch...!?!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Speichern() Dim Dateiname As String Dateiname = Application.InputBox(prompt:="Bitte Dateinamen eingeben:") If Dateiname = "" Then Application.DisplayAlerts = False ActiveWorkbook.Close Else ActiveWorkbook.SaveAs Filename:="G:\" & Dateiname ActiveWorkbook.Close End If Application.DisplayAlerts = True End Sub

Sub Speichern() Dim Dateiname As String Dateiname = Trim(Application.InputBox(prompt:="Bitte Dateinamen eingeben:")) Select Case Dateiname Case "", False ActiveWorkbook.Close SaveChanges:=False Case Else On Error GoTo NameUngueltig ActiveWorkbook.Close Filename:="G:\" & Dateiname End Select Exit Sub NameUngueltig: MsgBox "Der Dateiname enthält ungültige Zeichen!" End Sub

Wenn wir gerade schon dabei sind... ;-)
Die Fehlermeldung sollte nicht "Der Dateiname enthält ungültige Zeichen!" lauten, da abgesehen von ungültigen Zeichen was anderes faul sein kann. Beispielsweise Festplatte voll, keine Schreibrechte, Datei existiert bereits und ist von einem anderen User/Prozess geöffnet, Laufwerk nicht verfügbar, Datenträger nicht eingelegt, Gerät nicht bereit, Pfad ungültig, Dateiname zu lang usw.
Ausserdem muss vor "ActiveWorkbook.Close Filename:=..." die Anweisung "Application.DisplayAlerts = False" eingefügt werden, sonst erscheint die Excel-Rückfrage "Änderungen speichern?".
Abgesehen davon: Was macht der User, wenn er die InputBox vor sich hat und weder speichern noch schliessen möchte?
Gruss
Philipp
¦¦¦ xlam - Excel and more!
¦¦¦ http://195.186.84.74/index.htm

Beliebteste Forumthreads (12 Monate)

Datei speichern - VBA

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

210 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei speichern - VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

210 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread