Speicherbutton umleiten
09.06.2016 14:05:25
Rookie
und wiedermal brauche ich eure Hilfe! Ich möchte gerne den Speicherbutton (Diskettensymbol) umprogrammieren. Beim speichern soll ein Makro aufgerufen werden.
Ich hab mal was versucht, aber es funktioniert leider nicht so richtig. Vielleicht könnt ihr mir dabei helfen:
Unter "Diese Arbeitsmappe":
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Zwischenspeichern
Cancel = True
End Sub
Unter "Modul1":
Sub Zwischenspeichern()
Dim User As Object
Dim KSt As String
Set User = CreateObject("wscript.network")
KSt = ThisWorkbook.Worksheets("Maßnahmenplan").Cells(8, 22).Value & "_" & Format(Range("H5"), "000000")
ChDir "C:\Users\" & User.UserName & "\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\" & User.UserName & "\Desktop\Audit" & " " & KSt & " " & "in Arbeit.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Ich bin dankbar für jede Hilfe!
Mit besten Grüßen
Stefan