Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellwerte automatisch in Kopfzeile

Zellwerte automatisch in Kopfzeile
20.11.2004 10:55:36
Ulrich
Guten Tag,
ich möchte gerne die Inhalte (= Text) der nachfolgend genannten Zellen meines ersten Tabellenblatts (Name: Inhalt) in die Kopfzeile aller Blätter der Arbeitsmappe automatisch übernehmen können:
Zelle E2 in die Kopfzeile links
Zelle E3 in die Kopfzeile mitte
Zelle E4 in die Kopfzeile rechts
Zelle E5 in die Fußzeile links.
Kann mir jemand helfen - vielen Dank.
Gruss
Ulli Sopart

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwerte automatisch in Kopfzeile
20.11.2004 11:15:12
Josef
Hallo Ulli!
Kopiere diesen Code in das Modul der tabelle "Inhalt".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
If Not Intersect(Target, [E2:E5]) Is Nothing And Target.Count = 1 Then
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> Me.Name Then
With wks.PageSetup
.LeftHeader = [E2]
.CenterHeader = [E3]
.RightHeader = [E4]
.LeftFooter = [E5]
End With
End If
Next
End If
End Sub

Gruß Sepp
AW: Zellwerte automatisch in Kopfzeile
20.11.2004 11:24:17
Josef
Hallo Ulli!
Du brauchst sicher die Kombination beider Codes.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
If Not Intersect(Target, [B10:B20,E2:E5]) Is Nothing And Target.Count = 1 Then
If Target.Column = 2 Then
On Error Resume Next
Worksheets(Target.Row - 8).Name = Target
ElseIf Target.Column = 5 Then
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> Me.Name Then
With wks.PageSetup
.LeftHeader = [E2]
.CenterHeader = [E3]
.RightHeader = [E4]
.LeftFooter = [E5]
End With
End If
Next
End If
End If
End Sub

Gruß Sepp
Anzeige
AW: Zellwerte automatisch in Kopfzeile
20.11.2004 16:24:42
Ulli
Hallo Sepp,
vielen Dank - klappt Prima.
Gruss
Ulli

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige