ich habe eine Frage: Ich brauche einen Code, sobald ich im Excel auf Speichern unter klicke (als ohne Button im Tabellenblatt o.ä) sondern das Standardvorgehen, Datei -> Speichern unter, dann der entsprechende Pfad geöffnet wird, welches ich vorher definiert habe und der Titel. Habe schon probiert. Der Code funktioniert auch, allerdings, muss es automatisch starten sobald ich auf Diskette klicke oder über Datei -> Speichern unter
Vielen Dank für die Hilfe schonmal
PS: Der Dateiname wird aus Daten aus dem Tabellenblatt ("Projekte") generiert.
Grüße
Sub DateiSpeichern()
Dim str As String
Const Lw = "C:\"
Const Pfad = "C:\Test"
'Ermitteln des Dateinamens
str = Worksheets("Projekt").Range("D4") & "_" & "Projekt_" & Range("D5") & "_" & "Proj_" & _
Range("D7") & "_" & Range("D6") & "_" & Right(Range("E36"), 2) & Mid(Range("E36"), 4, 2) & Left(Range("E36"), 2)
'richtiges Laufwerk und Pfad einstellen
On Error GoTo Fehler
ChDrive Lw
ChDir Pfad
'Arbeitsmappe speichern
ActiveWorkbook.SaveAs Filename:=str, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub
Fehler:
MsgBox "Laufwerk oder Verzeichnis konnte nicht gefunden werden!"
End Sub