Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speichern unter

Speichern unter
03.06.2016 10:26:10
Serkan
Hallo liebes Forum,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter
03.06.2016 11:10:58
UweD
Hallo
gehört in den Codebereich "DieseArbeitsmappe"
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Dim str As String
On Error GoTo Fehler
Const Lw = "C:\"
Const Pfad = "C:\Temp"
'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
ChDrive Lw
ChDir Pfad
'Arbeitsmappe speichern
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=str, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub
Gruß UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige