Gruppe
Ereignis
Problem
Wie kann ich Eingaben in bestimmte Zellen eines Arbeitsblattes automatisch als Kopfzeile festlegen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_SheetChange( _
ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Text" Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
Sh.PageSetup.LeftHeader = Range("A1").Value
End Sub