Grüezi alle zusammen,
Ich habe ein kleines Berechnungsprogram über eine Userform bedienbar gemacht, was auch ganz gut funktioniert. Nur beim Speichern tritt ein Problem auf.
Ueber einen Button wird folgender Code aktiviert :
Private Sub cmSpeichern_Click()
ChDir „“
ChDrive „c:“
Dateiname = Application.GetSaveAsFilename _
(„Test.xls“, „Micrsoft Excel-Dateien (*.xls),*.xls“)
If Dateiname = False Then Exit Sub
End Sub
Das Menü speichern erscheint und man kann einen neuen Dateinamen eingeben. Das sieht alles ganz normal aus. Erst als ich die unter neuem Namen gespeicherte Datei aufrufen wollte konnte ich sie nirgends finden - also nicht gespeichert ?
Wer kann helfen ?
Schönen Tag noch
Hallo Heiner,
GetSaveAs ruft in der Tat nur den Speichern unter Dialog auf ohne anschließend zu speichern. Es gibt aber die Eingaben in der Variablen zurück.
Du muss in deiner Prozedur nur noch ein SaveAs einbauen wie folgt:
Private Sub cmSpeichern\_Click()
ChDir "\"
ChDrive "c:\"
Dateiname = Application.GetSaveAsFilename \_
("Test.xls", "Micrsoft Excel-Dateien (\*.xls),\*.xls")
**If Dateiname = False Then
Exit Sub
Else
ActiveWorkbook.SaveAs FileName:=Dateiname
End If**
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Heiner,
zusätzlich zur Hilfe von Franz,
Private Sub cmSpeichern_Click()
ChDir „“
ChDrive „c:“
…
ist nicht korrrekt, ändere das in:
Private Sub cmSpeichern_Click()
ChDrive „C“
ChDir „C:“
…
Gruß
Reinhard