kopfzeile

Forumthread: kopfzeile

kopfzeile

25.10.2007 20: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 20:47:43

Jens
AW: PageSetup einmal vergessen! oT

25.10.2007 21:15:23

michael
AW: PageSetup einmal vergessen! oT

25.10.2007 21:32:00

Jens
AW: kopfzeile

25.10.2007 22:35:00

michael
AW: kopfzeile

26.10.2007 09:27:42

Michael
AW: kopfzeile

26.10.2007 09:29:00

Hajo_Zi

PageSetup einmal vergessen! oT

25.10.2007 20:47:43

Jens

AW: PageSetup einmal vergessen! oT

25.10.2007 21:15:23

michael

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

AW: PageSetup einmal vergessen! oT

25.10.2007 21: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

25.10.2007 22: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

AW: kopfzeile

26.10.2007 09:27:42

Michael

hallo
kann sich da nochmal jemand drum kümmern.
danke

AW: kopfzeile

26.10.2007 09:29:00

Hajo_Zi

Hallo Michael,
ich hätte vermutet durch den Beitrag ist das erledigt.
https://www.herber.de/forum/messages/919961.html

Beliebteste Forumthreads (12 Monate)

Forumthread: kopfzeile

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread