wie viele von Euch, die hier im Forum etwas posten, habe auch ich ein Problem.
Ich möchte gerne, dass nach dem Öffnen meiner Datei "Comparison Sheet" sofort automatisch eine MSG-Box aufgeht, die den Anwender darauf hinweist, dass er die Datei unter einem neuen Dateinamen speichern soll. Danach soll das Menü "Speichern unter" aufgehen und alle Dateitypen zur Verfügung stellen, die auch beim normalen Anwenden über die Auswahl " Datei - Speichern unter " zur Verfügung stehen. Ich habe bereits mehrfach im Internet recherchiert und die nachfolgend abgebildete Lösung für mich kreiert.
Private Sub Workbook_Open()
Dim Neuer_Dateiname
MsgBox "Um allen Anwendern des Comparison Sheets ein leeres Tabellen-Formular" & vbCrLf & _
"zur Verfügung zu stellen, speichern Sie diese Datei bitte vor Eingabe Ihrer" & vbCrLf & _
"Daten unter einem neuen Dateinamen." & vbCrLf & vbCrLf & _
"Der Dateiname ist dabei zwingend mit der Endung "".xls"" einzugeben." & vbCrLf & vbCrLf & _
"Vielen Dank!"
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
End Sub
Dabei gibt es mehrere Problem, die ich mir nicht erklären kann:
1. Es wird kein Dateityp angezeigt. Ich benötige aber den Dateityp "Microsoft Excel-Arbeitsmappe".
2. Der Anwender soll nicht zwingend die Endung ".xls" an den neuen Dateinamen anreihen müssen.
3. Oftmals speichere ich die Datei unter einem Namen, aber die Datei wird gar nicht unter dem von mir angegebenen Namen abgespeichert!
4. Es kommt auch hin und wieder die Meldung, dass die Datei "Comparison Sheet" nicht nochmals unter dem selben Dateinamen gespeichert werden kann. Seltsam!
Ich würde mich sehr freuen, wenn mit hier jemand weiterhelfen kann und sich meiner Probleme annimmt.
Viele Grüße
Christian