wwie kann ich ein MAkro starten lassen sobald die Tabelle gespeichert wird?
Jedoch müssen die Änderungen die das makro auslöst noch getätigt und mitgespeichert werden.
Danke Gruss volker
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'dein Code
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' automatisches ausfüllen Materialcode Kantengrafik, Gesamtstückzahl
'Sub Test()
'Serie
Range("U6").Select
ActiveCell.Formula = "=IF((E6)>0,U5,"""")"
Selection.AutoFill Destination:=Range("U6:U319"), Type:=xlFillCopy
'Materialcode
Range("W5").Select
ActiveCell.Formula = "=CONCATENATE(I5,H5)"
Selection.AutoFill Destination:=Range("W5:W319"), Type:=xlFillDefault
'Kantengrafik
Range("AV5").Select
ActiveCell.Formula = "=O5"
Selection.AutoFill Destination:=Range("AV5:AV319"), Type:=xlFillDefault
Range("AW5").Select
ActiveCell.Formula = "=E5"
Selection.AutoFill Destination:=Range("AW5:AW319"), Type:=xlFillDefault
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Serie
Range("U6").Select
ActiveCell.Formula = "=IF((E6)>0,U5,"""")"
Selection.AutoFill Destination:=Range("U6:U319"), Type:=xlFillCopy
'Materialcode
Range("W5").Select
ActiveCell.Formula = "=CONCATENATE(I5,H5)"
Selection.AutoFill Destination:=Range("W5:W319"), Type:=xlFillDefault
'Kantengrafik
Range("AV5").Select
ActiveCell.Formula = "=O5"
Selection.AutoFill Destination:=Range("AV5:AV319"), Type:=xlFillDefault
Range("AW5").Select
ActiveCell.Formula = "=E5"
Selection.AutoFill Destination:=Range("AW5:AW319"), Type:=xlFillDefault
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' automatisches ausfüllen Materialcode Kantengrafik, Gesamtstückzahl
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Um ein Excel-Makro beim Speichern der Datei auszuführen, musst Du den entsprechenden VBA-Code in das richtige Modul einfügen. Hier sind die Schritte:
Öffne die Excel-Datei, in der Du das Makro beim Speichern ausführen möchtest.
Drücke ALT + F11
, um den VBA-Editor zu öffnen.
Finde "DieseArbeitsmappe" in der Projektansicht auf der linken Seite.
Doppelklicke auf "DieseArbeitsmappe", um den Code-Editor für das Workbook zu öffnen.
Füge den folgenden Code ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Hier kommt dein Makro-Code
End Sub
Ersetze den Kommentar mit Deinem spezifischen Code, der beim Speichern ausgeführt werden soll.
Schließe den VBA-Editor und speichere die Datei.
Jetzt wird das Makro ausgeführt, wenn Du die Datei speicherst.
Fehler: Das Makro wird nicht ausgeführt
Fehler: Das Makro führt keine Änderungen durch
Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die Funktion "Speichern unter" nutzen, um bestimmte Prozesse auszuführen. Eine weitere Möglichkeit ist die Verwendung von Excel-Add-Ins, die ähnliche Funktionen bieten, ohne dass Du den VBA-Code manuell schreiben musst.
Hier sind einige Beispiele für VBA-Makros, die Du beim Speichern ausführen kannst:
Automatisches Ausfüllen von Zellen:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1").Value = "Letzte Speicherung: " & Now
End Sub
Drucken des aktuellen Arbeitsblatts:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PrintOut
End Sub
Diese einfachen VBA-Skripte zeigen, wie Du beim Speichern einer Excel-Datei automatisch Aktionen ausführen kannst.
Workbook_AfterSave
-Ereignisprozedur, um Aktionen nach dem Speichern auszuführen.1. Wie kann ich sicherstellen, dass mein Makro beim Speichern immer ausgeführt wird? Indem Du sicherstellst, dass der Code korrekt in "DieseArbeitsmappe" eingefügt wurde und keine Syntaxfehler aufweist.
2. Was muss ich tun, wenn ich eine Excel-Datei speichere und das Makro nicht funktioniert? Überprüfe, ob die Datei als Makro-aktivierte Datei (.xlsm) gespeichert ist und dass die Makros in den Excel-Optionen aktiviert sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen