Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro automatisch durchführen

Makro automatisch durchführen
27.09.2006 10:14:41
petra
Hallo zusammen,
habe folgenden Makro:

Sub Druck()
ActiveSheet.PageSetup.LeftFooter = Range("C45") & ", " & Range("B45")
End Sub

Der soll immer dann aktiviert werden wenn Zelle B45 oder Zelle C45 verändert werden. In den beiden Zellen befinden sich jeweils eine Drop-Down Liste mit unterschiedlichen Variablen.
Kann mir jemand helfen?
danke
lg
petra

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro automatisch durchführen
27.09.2006 10:37:38
Rudi
Hallo,
in das Klassenmodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B45:C45")) Is Nothing Then Call Druck
End Sub

Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige