Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zelleingabe automatisch in Kopfzeile übernehmen

Gruppe

SheetChange

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