Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen beim speichern

Makro ausführen beim speichern
14.10.2003 10:00:19
junny
Hallo Leute,
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

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen beim speichern
14.10.2003 10:02:06
Andi_H
Hi Volker,

schreibe den Code in DieseArbeitsmappe im Ereignis BeforeSave


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'dein Code
End Sub


Gruß

ANdi
AW: Makro ausführen beim speichern
14.10.2003 10:52:58
junny
Hai ANdi,
hab die Zeile einkopiert, mein Code sieht jetzt so aus:


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



Doch es tut sich nichts, wieso?

Gruss volker
Anzeige
AW: Makro ausführen beim speichern
14.10.2003 11:15:04
Andi_H
also bei mir funktioniert dein Code, wird ausgeführt bevor man speichert.
AW: Makro ausführen beim speichern
14.10.2003 11:53:45
junny
Hai Andi,
also so: und wenn ich dann auf das speichern Symbol (oder ähnl.) gehe sollte das makro starten, oder?
Bei mir läuft das nicht!
In dem Workbook ist noch ein auto_open sowie weitere makros die aber nur über Schaltflacje gehen.

Hä?? gruss volker


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

Anzeige
AW: Makro ausführen beim speichern
14.10.2003 12:17:31
junny
Hai Andi,
hab noch folgendes in einer neuen Mappe getestet,


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


so sollte beim speichern ein Ausdruck rauskommen, oder?

Geht leider nicht!!
Gruss volker
AW: Makro ausführen beim speichern
14.10.2003 12:24:17
Andi_H
des ist ja seltsam, du hast den Code aber schon in DieseArbeitsmappe stehen.
Verstehe nicht warum dies bei dir nicht geht. Hast du schon mal einen Haltepunkt im Code gesetzt und geguckt ob er beim speichern das Makro überhaupt anspricht.
Kann mir das leider auch nicht erklären.
Anzeige
AW: Makro ausführen beim speichern
14.10.2003 12:34:28
junny
Andi, genau das wars!!
Ich hatte den Code als Modul unten angehängt und nicht in der Arbeitsmappe!!
(leider kapier ich das auch noch nicht wirklich worin da der Unterschied liegt)

Auf jeden Fall geht es jetzt, Danke!!
Gruss volker
Bitteschön
14.10.2003 12:46:05
Andi_H
Der Code muß immer da rein wo das ereignis stattfindet, speichern betrifft immer die ganze Mappe, also DieseArbeitsmappe, Ereignisse im Sheet immer in die Tabelle rein in der das Ereignis stattfindet (z.b. Zelländerung, Activieren des sheets)
Code in modulen müssen zu fast 100 % manuell gestartet werden (oder mit Call oder Run in einem Code) ( einzig mir bekannte Ausnahme: Sub Auto_open(), wird beim öffnen der Datei gestartet (wie Workbook_open), sollte aber nicht verwendet werden. Kann bei Makros älteren XLS-Versionen auftreten.)
Freut mich das es kappt!

Gruß

Andi
Anzeige
Danke, soll Dir im Kindersegen reinkommen
14.10.2003 14:31:38
junny
o.T.

70 Forumthreads zu ähnlichen Themen

Datei "umspeichern" - VBA
Wolfgang

Hallo,
mit untenstehendem Code werden Daten aus einer tmp-Datei importiert. Es wird immer die zuletzt generierte Datei angesprochen. Seit geraumer Zeit wird nun diese tmp-Datei in einem UTF-8-Format "geliefert", welches dazu führt, dass die Umlaute nicht sauber importiert werden. Nun kam mi...
21.09.2008 14:46:00
Thread-ID: 1011301
4 Beiträge
Anzeige
Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
Anzeige
Makros beim Speichern eliminieren
Chris

Hallo Excelianer
Also, folgendes Problem
Ich habe eine Datei, die per Makro einige Berechnungen ausführt. Am Ende der ganzen Berechnungen speichert sich die Datei mit SaveAs. Das heisst: Das Tool an sich wird nicht überschrieben.
Die "SaveAs"-Datei ist eine reine Werte-Datei. Mein...
16.09.2009 16:39:45
Thread-ID: 1103283
3 Beiträge
makro wird beim speichern nicht ausgeführt
alex

Und noch einmal brauche ich eure hilfe
Ich habe mir in meiner excel tabelle ein speichern button gebaut mit dem code:"activeworkbook.save"
gleichzeitig habe ich ein makro was ausgeführt wird wenn ich speichere "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean...
24.10.2009 14:25:08
Thread-ID: 1111842
3 Beiträge
Makro beim Blattwechsel ausführen ..
WalterK

Hallo,
den Code in der beigefügten Mappe habe ich aus diesem Forum, es wird das Blatt INHALT angelegt und dort werden dann alle Blätter aufgelistet. Funktioniert auch tadellos.
https://www.herber.de/bbs/user/65643.xls
Ich hätte es jetzt gerne so, dass der Code immer beim Öffnen der...
07.11.2009 02:34:11
Thread-ID: 1115131
4 Beiträge
VBA-Code ausführen bei Änd. v. Pivotabellen | Herbers Excel-Forum
Al
Hallo,
ich möchte VBA-Code ausführen lassen, wenn in einer Pivotabelle ein Zeilen-,Spalten oder Seiten-Feld verändert/ausgewählt wird.
Worksheet_Calculate kann ich nicht nutzen, da der Code selbst im Worksheet Änderungen durchführt, die wieder Worksheet_Calculate aufrufen.
Worksheet_Ch...
15.01.2010 15:04:20
Thread-ID: 1130302
4 Beiträge
Dateinamen per Makro beim speichern vorgeben | Herbers Excel-Forum
Thomas
Hallo Forum,
ich möchte beim speichern einer Excelmappe den Typ (xlsm) und ebenfalls den Dateinamen schon vorgeben. Das ist mir auch einigermassen gelungen, aber ich bin mit dem Endergebnis noch nicht so zufrieden.
Der Dateiname soll sich zusammensetzen aus "KL" + Leerzeichen + aktueller Mo...
26.01.2010 08:04:44
Thread-ID: 1132889
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
4
4
5
2
2
3
3
3
15
3
2
6
2
15
4
4
5
2
4
6
1
5
1