Makro automatisch durchführen

Forumthread: Makro automatisch durchführen

27.09.2006 12: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

AW: Makro automatisch durchführen

27.09.2006 12:37:38

Rudi

AW: Makro automatisch durchführen

27.09.2006 12: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

Forumthread: Makro automatisch durchführen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread