Beim Speichern ausführen
28.08.2020 10:59:37
Hannes
Ich arbeite mit verschiedenen Versionen von Excel 2010 oder höher
Ich hab folgendes Problem:
Ich habe 6 Tabellenblätter (will später 5 ausblenden)
In dem 1 Tabellenblatt (Formular) das sichtbar bleibt soll alles gesteuert werden.
Habe jetzt aus YouTube und Co folgenden Code gebastelt:
Wenn gespeichert wird, schreibe bitte den Wert einer Zelle in die rechte Fußzeile
und den Wert einer anderen Zelle In die linke Fußzeile nur einer Tabelle (Brief).
Die Werte sind auch in der Tabelle "Brief".
Da dies eine Vorlage werden soll, ändern sich diese Werte bei jedem neuen öffnen der Vorlage.
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'L12 Einfügen
Worksheets("Brief").PageSetup.RightFooter = Range("L12").Text
'L1 Einfügen
Worksheets("Brief").PageSetup.LeftFooter = Range("L1").Text
End Sub
Nur leider funktioniert diese Makro nicht.
Da kommt immer nur ein Pop Up wo man ein Makro auswählen soll
und es steht kein Makro zur Auswahl.
Wenn ich diese aber einzeln ausführe
Sub L12Einfügen()
Worksheets("Brief").PageSetup.RightFooter = Range("L12").Text
End Sub
Funktioniert es tadellos.
Kann mir wer Helfen und sagen warum?
Danke Hannes
Anzeige