title image


Smiley Dateiname mit SaveAs nicht mehr änderbar
Hallo zusammen,



folgende Code ist gegeben:



--------------------------

Sub Form_Speichern()

Dim datname As String

Dim dateiname As Variant

On Error GoTo ende



datname = "Umsatz" & [D4] & "_" & [DateVorgabe]

dateiname = Application.GetSaveAsFilename _

(datname, "Micrsoft Excel-Dateien (*.xls),*.xls")

If dateiname = False Then Exit Sub

ActiveWorkbook.SaveAs datname

End Sub

--------------------------

Dadurch erreiche ich, das "Speichern unter" aufgerufen wird und ein Dateiname im Feld Dateiname gleich vorgeschlagen wird. Wenn der Anwender aber den vorgeschlagenen Dateiname nicht möchte und daher im Feld Dateiname eine Änderung vornimmt , wird diese Änderung nicht genommen sondern immer weiterhin mir dem vorgeschlagenen Namen gespeichert...



Warum ????
Beste Grüße aus dem wilden Süden von Deutschland

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: