habe mir überlegt, wie kann man das SaveAs Fenster zum Abspeichern des Dateis öffnen, dabei möchte ich einen automatischen Vorschlag des Dateinamen aus der aktuellen Tabelle verwenden. Ist es möglich?
Danke im Voraus,
Herzlichst
Natalie
Private Sub Datei_Speichern()
Dim name as string
ActiveWorkbook.SaveAs (name)
End Sub
Sub Angebot_speichern()
Application.ScreenUpdating = False
Dim Speicherpfad As String
Speicherpfad = Sheets("BlattXXX").Range("A1").Value
ActiveWorkbook.SaveAs Filename:=Speicherpfad & Range("B23") & "_A_" & Range("A12") & ".xls"
Application.ScreenUpdating = True
End Sub
Sub File_speichern()
Application.ScreenUpdating = False
Dim Speicherpfad As String
Speicherpfad = Sheets("BlattXXX").Range("A1").Value
ActiveWorkbook.SaveAs Filename:=Speicherpfad & Range("A2") & ".xls"
Application.ScreenUpdating = True
End Sub