Thema: Zelleingabe automatisch in Kopfzeile übernehmen

Home

Gruppe

Ereignis

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

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	Workbook_SheetChange löscht Zwischenspeicher ...
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	SheetChange_Endlosschleife
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Ereignis von Laufzeit-Checkbox	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Objekt_Error - Ereignis in UserForm
change ereigniss auf userform.	WB_Sheetchanged für Formatierungen
Click-Ereignis für Checlbox nicht ausführen?	Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse	Ausnahmen für Exit-Ereignis
Exit-Ereignis SetFocus	select Ereigniss UF Show
Ereignis zeitweise mit Fehler	Ereignismakro
Selectereigniss in Spalte	doppeltes Klick-Ereignis
Doppelklick-Ereignis	VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht	Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten	Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an	Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic	change ereigniss nicht ausführen Userform
Exit Ereignis	Rekursiven Aufruf von Ereignissen verhindern
Makro läuft nicht, falsches Ereignis?	Dropdown Ereignis