Makro ändern
17.06.2004 07:44:05
m
habe den Code hier im Forum gefunden. Ist sehr brauchbar. Aber ich möchte die Zellen D2 bis AB2 auf Änderungen überprüfen und nicht nur B6 und D7. Wie mache ich das?
Änderung der Kopfzeile bei Zelleintrag
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adr$
Adr = Target.Address
If Adr <> "$B$6" And Adr <> "$D$7" Then Exit Sub
Adr = CStr(Range("B6")) & "/" & CStr(Range("D7"))
ActiveSheet.PageSetup.LeftHeader = Adr
End Sub