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...!?!!!