kopfzeile

Forumthread: kopfzeile
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: kopfzeile

kopfzeile

25.10.2007 22:08:00

michael

beim öffnen eines versteckten tabellenblatts soll immer der wert einer bestimmten zelle eines anderen tabellenblatts in die kopfzeile übernommen werden. der wert kann sich natürlich jederzeit ändern und soll dann jeweils in der kopfzeile aktualisiert werden. Ich habe bereits folgenden code:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim titel
If Sh.Name = "Tabelle1" Then Exit Sub
Set titel = Worksheets("Tabelle1!").Range("A1")
Sh.PageSetup.LeftHeader = titel
Sh.RightHeader = Range("Tabelle1!A2").Value
End Sub

Leider wird das Feld im Kopf nicht aktualisiert.
Danke für euere Antwort

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

PageSetup einmal vergessen! oT

25.10.2007 22:47:43

Jens
AW: PageSetup einmal vergessen! oT

25.10.2007 23:15:23

michael
AW: PageSetup einmal vergessen! oT

25.10.2007 23:32:00

Jens
AW: kopfzeile

26.10.2007 00:35:00

michael
AW: kopfzeile

26.10.2007 11:27:42

Michael
AW: kopfzeile

26.10.2007 11:29:00

Hajo_Zi

PageSetup einmal vergessen! oT

25.10.2007 22:47:43

Jens

AW: PageSetup einmal vergessen! oT

25.10.2007 23:15:23

michael

das funktioniert leider nicht. das muss doch in diese arbeitsmappe oder?

AW: PageSetup einmal vergessen! oT

25.10.2007 23:32:00

Jens

hi,
falsch:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim titel
If Sh.Name = "Tabelle1" Then Exit Sub
Set titel = Worksheets("Tabelle1!").Range("A1")
Sh.PageSetup.LeftHeader = titel
Sh.RightHeader = Range("Tabelle1!A2").Value
End Sub

richtig:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim titel
If Sh.Name = "Tabelle1" Then Exit Sub
Set titel = Worksheets("Tabelle1!").Range("A1")
Sh.PageSetup.LeftHeader = titel
Sh.PageSetup.RightHeader = Range("Tabelle1!A2").Value
End Sub

mfg Jens

AW: kopfzeile

26.10.2007 00:35:00

michael

jetzt hab ich was. das einzige was fehlt, dass bei tabelle 1 die kopfzeile nicht befüllt wird


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.PageSetup.LeftHeader = Sheets("Tabelle1").Range("A1").Value
Sh.PageSetup.RightHeader = Sheets("Tabelle1").Range("A2").Value
Next Sh
End Sub