VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zelleingabe automatisch in Kopfzeile übernehmen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und SheetChange