Gruppe
Ereignis
Bereich
SheetChange
Thema
Zelleingabe automatisch in Kopfzeile übernehmen
Problem
Wie kann ich Eingaben in bestimmte Zellen eines Arbeitsblattes automatisch als Kopfzeile festlegen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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