Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopf-Fußzeile in alle Tabellenblätter übernehmen

Kopf-Fußzeile in alle Tabellenblätter übernehmen
07.09.2006 10:52:34
Fredi
Hallo Leute,
gibt es die Möglichkeit die Kopf und Fußzeilen eines vorher definierten Tabellenblattes in alle anderen Tabellenblätter einer ExcelDatei zu übertragen?
Vielleicht ein VBA Programm?
Danke
Fredi

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

Betreff
Datum
Anwender
Anzeige
AW: Kopf-Fußzeile in alle Tabellenblätter übernehmen
07.09.2006 11:02:10
Rudi
Hallo,
dein Musterblatt anklicken, dann Strg drücken und die anderen Blätter markieren.
Datei-Seite einrichten-OK
Fertig.
Gruß
Rudi
AW: Kopf-Fußzeile in alle Tabellenblätter übernehmen
07.09.2006 11:18:43
Ingo
hallo Fredi,

Sub kopf_u_Fusszeilen()
Dim wks As Worksheet, wks_def As Worksheet
Set wks_def = Sheets("DeinWorksheet")
For Each wks In ThisWorkbook.Sheets
With wks.PageSetup
.LeftHeader = wks_def.PageSetup.LeftHeader
.CenterHeader = wks_def.PageSetup.CenterHeader
.RightHeader = wks_def.PageSetup.RightHeader
.LeftFooter = wks_def.PageSetup.LeftFooter
.CenterFooter = wks_def.PageSetup.CenterFooter
.RightFooter = wks_def.PageSetup.RightFooter
End With
Next wks
End Sub

mfG
Ingo Christiansen
Anzeige
AW: Kopf-Fußzeile in alle Tabellenblätter übernehm
07.09.2006 11:24:20
Fredi
Danke Rudi, danke Ingo
genau so habe ich es mir vorgestellt.
Fredi

188 Forumthreads zu ähnlichen Themen

Auf jedem Tabellenblatt zurück in A1 springen
Bernd

Hallo,
ich habe mehrere Tabellenblätter und möchte, nachdem ich nachfolgende Module ausgeführt habe, daß auf jedem Tabellenblatt wieder A1 die aktive Zelle ist. Derzeit ist bei mir immer D7 aktiv.
Modul 1: Hier wird die Kopfzeile erstellt
Sub KopftextLinks() Dim i As Long Dim Blat...
20.02.2009 10:58:00
Thread-ID: 1052384
3 Beiträge
Anzeige
Titel auf jedem gedruckten Blatt sichtbar
Jan

Hallo zusammen
ich möchte dass ein Titel auf jedem gedruckten Blatt sichtbar ist.
Bsp so:
Habe folgende Tabelle...
Artikel ______ Menge______Preis
darunter folgen etwa 5000 Zeilen mit Artikeln, deren Menge und deren Preise.
Jetzt möchte ich aber, dass wenn ich drucke, i...
19.06.2009 09:43:10
Thread-ID: 1082792
3 Beiträge
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Anzeige
Datenbereich bei Diagramm über mehrere Blätter
Alexander

Hallo zusammen,
wollte ein Diagramm erstellen, dessen Datenbereich sich über mehrere Tabellenblätter erstreckt. In das Feld Datenbereich hätte ich dann folgendes geschrieben (=Tabelle1!$A$1:$B$3;Tabelle2!$C$1:$D$3). Dann erhielt ich die Fehlermeldung: "Verweis ist ungültig."
Gibt es da...
28.10.2009 21:08:45
Thread-ID: 1112759
3 Beiträge
Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero

Hallo liebe Profis,
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range For Each rng In Target watchChanges Sh.Name, rng.Address(0,...
18.11.2009 11:10:43
Thread-ID: 1118237
11 Beiträge
MIN über mehrere Blätter
Thomas

Hallo liebe Gemeinde,
und frohes neues Jahr erst einmal.
Ich möchte gerne einen Streckenrekord einer bestimmten Streckenlänge anzeigen lassen.
Hierzu habe ich mehrere Sheets mit Ergebnislisten aus den vergangenen Jahren mit Namen "2009", "2008" usw.
Darin befinden sich in Spalte...
02.01.2010 13:14:28
Thread-ID: 1126702
5 Beiträge
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
summe über mehrere Tabellenblätter
Volker

Hallo Liebe Excel- Gemeinde
In einem Forum habe ich mal eine Hinweis auf eine "Summen- Formel" gelesen, die aus einer Arbeitsmappe eine Summe aus allen Tabellenblätter dieser Mappe aus einer bestimmten Zelle zusammen bildet.
Also mein Problem ist
1. aus einer Arbeitsmappe immer die...
31.01.2010 13:23:17
Thread-ID: 1134569
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
2
4
2
2
10
4
3
5
2
2
1
3
8
7
1
2
2
3
3
7
1
5
3