Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopf und fusszeile übernehmen

Forumthread: Kopf und fusszeile übernehmen

Kopf und fusszeile übernehmen
14.09.2016 13:38:38
Manuel
Hallo!
Wie kann man denn mittels VBA Code eine Kopfzeile und eine Fusszeile der Tabelle1 in Tabelle2 übernehmen?
Danke für die Hilfe!
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf und fusszeile übernehmen
14.09.2016 13:48:58
Manuel
With activesheet.pagesetup
.leftheader = sheets ("Übersicht").pagesetup.leftheader
.centerheader = sheets ("Übersicht").pagesetup.centerheader
Usw.
Da kommt nach der linken Kofzeile immer eine Fehlermeldung? ?
Anzeige
AW: Kopf und fusszeile übernehmen
14.09.2016 13:55:58
UweD
so?
    Dim TB1, TB2
Set TB1 = Sheets("Tabelle1").PageSetup
Set TB2 = Sheets("Tabelle2").PageSetup
With TB2
.LeftHeader = TB1.LeftHeader
.CenterHeader = TB1.CenterHeader
.RightHeader = TB1.RightHeader
.LeftFooter = TB1.LeftFooter
.CenterFooter = TB1.CenterFooter
.RightFooter = TB1.RightFooter
End With
Gruß UweD
Anzeige
AW: Kopf und fusszeile übernehmen
14.09.2016 14:17:04
Manuel
Immer noch. Left header macht er und bei Center header kommt dann der fehler?
Im Center header steht nur ein Wort....ich werde verrückt!!!!
Hast du mal eine Musterdatei?
14.09.2016 14:26:35
UweD
AW: Hast du mal eine Musterdatei?
14.09.2016 14:28:33
Manuel
Ja....erst am Abend wenn ich zuhause bin :-(
Anzeige
dann noch offen
14.09.2016 14:37:22
UweD
AW: dann noch offen
14.09.2016 18:43:23
Manuel
Hi, hier der Upload der Datei:
https://www.herber.de/bbs/user/108183.xlsm
Beim Drücken des Buttons "Tagesbericht" wird eine neue Tabelle mit gefilterten Daten erstellt und dabei sollte die Kopf und Fusszeile der Tabelle "Übersicht" übernommen werden.
Vielen Dank schon einmal...LG
Anzeige
hab die Blanks rausgenommen...Gruß
14.09.2016 18:56:31
Robert 

Sub Tagesbericht_Format4()
Dim TB1, TB2
Set TB1 = Sheets("Übersicht").PageSetup
Set TB2 = ThisWorkbook.Sheets(4).PageSetup
With TB2
.LeftHeader = TB1.LeftHeader
.CenterHeader = TB1.CenterHeader
.RightHeader = TB1.RightHeader
.LeftFooter = TB1.LeftFooter
.CenterFooter = TB1.CenterFooter
.RightFooter = TB1.RightFooter
End With
End Sub

Anzeige
AW: hab die Blanks rausgenommen...Gruß
14.09.2016 19:03:03
Manuel
Super, echt Spitze....Vielen lieben Dank und LG Manuel
Danke f.Rückmeldung-owT
14.09.2016 19:10:29
Robert
AW: hab die Blanks rausgenommen...Gruß
15.09.2016 08:19:21
UweD
Ein Tipp, um das Risiko zu mindern..
Schreibe in die oberste Zeile Option Explicit

Option Explicit
Private Sub CommandButton1_Click()
Dim WS1 As Worksheet
Set WS1 = ThisWorkbook.Worksheets("Masterliste")
WS1.Range("$AG$1:$AG$313").AutoFilter Field:=1, Criteria1:="1"

usw...
Dann will VBA für jede Variable eine Dim-Anweisung.
In deinem Fall wurden die "Befehle" als Variable angenommen. Das wäre dann bemeckert worden.
Kann man standardmäßig einstellen.
- Im VB Editor
- Extras, Optionen
- Haben bei "Variablendeklaration erforderlich" rein
Gruß UweD
Anzeige

Forumthreads zu verwandten Themen

kopf und fußzeile
holger

Hallo liebe excel gemeinde
besteht die möglichkeit in excel auch eine tabelle in der Kopf und Fußzeile einzubringen?
Sollte wie folgt aussehen
https://www.herber.de/bbs/user/63158.xls
Hoffe es geht in der Kopf und Fußzeile irgendwie.
Gruß Und Danke
Holger
14.07.2009 12:09:51
Thread-ID: 1088421
5 Beiträge
Anzeige
Schutz von Kopf- und Fußzeile
Kopf-

Hallo zusammen,
habe die Strucktur meiner Tabellenblätter geschützt, nur kann trotz vg. Schutz die Kopf- und Fußzeile noch geändert werden, dies sollte jedoch nicht mehr änderbar sein.
Frage: Kann die Kopf- und Fußzeile auch geschützt werden und wenn ja wie?
Bitte um Antwort
Gr...
12.03.2011 07:20:17
Thread-ID: 1205352
5 Beiträge
Kopf- und Fusszeile
Marco

Hallo,gibt es eine Möglichkeit einem Tabellenblatt das aus 5 Seiten besteht, die Kopf- und Fusszeile verschieden zu gestalten, so das bsp. in der Kopfzeile von Seite 3 das erste Wort aus Zelle 73,2 (erste Zeile von Blatt 3) steht.

15.05.2002 11:21:19
Thread-ID: 120982
2 Beiträge
Kopf- und Fusszeilen setzen
Pepi

Hallo zusammen
Wenn ich mit dem Makrorecorder die Kopf- und Fusszeilen setze, und danach das Makro mit einer neuen Tabelle laufen lasse funktioniert es nicht mehr. (Falsche oder gar keine Werte!)
Ich habe immer wieder neue Tabelle, die die gleiche oder eine ähnliche Seitervormatierung m...
13.04.2012 09:41:44
Thread-ID: 1259000
5 Beiträge
Anzeige
variable Kopf- und Fußzeilen
Hans

Hallo,
um die Fuß- und Kopfzeilen je Tabellenblatt unterschiedlich variabel zu beschriften, habe ich volgenden VBA-Code in der Arbeitsmappe: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet = Sheets("Tabelle1") Then ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Range("P1"...
23.07.2012 17:09:50
Thread-ID: 1272351
6 Beiträge
"&"-Zeichen verfälscht Kopf- und Fusszeile
Talia

Guten Morgen,
Ich habe ein Problem mit dem "&"-Zeichen.
In der Zelle A1 stehen Produktnamen z.B. "Dark Nut" oder aber auch "S&S Black".
Auf diese Zelle verweise ich in meinen Kopf-und Fusszeilen in VBA:
.LeftHeader = "&""Arial,Standard""&8" & Range("A1").va...
28.04.2014 08:12:14
Thread-ID: 1358808
12 Beiträge
Kopf und fusszeile übernehmen
Manuel

Hallo!
Gibt es einen einfachen Code der die Kopfzeile und Fusszeile für ein neu erstelltes Arbeitsblatt (Tabelle4) von Tabelle1 übernimmt (mit Grafik)?
Danke!
11.08.2016 09:33:25
Thread-ID: 1508777
5 Beiträge
Kopf und Fußzeile nur in bestimmte
silex1

Hallo,
ich habe eine Datei mit 15 Blättern. Davon haben 3 identische Kopf- und Fußzeilen (Grafik).
Bisher hab ich per Mekro diese gelöscht, wenn diese nicht benötig wurden (Papierausdruck z.B.). Leider ist dann beim erneuten drucken alles weg und ich kann die Grafiken nur noch per Hand...
24.11.2016 11:31:54
Thread-ID: 1526776
7 Beiträge
Kopf- und Fusszeile einbinden
KJ

Hallo Community,
ich habe mal eine Frage. Ich habe mal ein excel makro erstellt, dass eine PDF Datei erstellt mit Autor, Datum und dem Inhalt, welches der Autor verfasst hat. Der Code sieht folgendermaßen aus:
Dim IsCreated As Boolean Dim i As Long Dim PdfFileKJ As String, Title As Str...
15.03.2019 14:23:08
Thread-ID: 1681528
3 Beiträge
Kopf und Fusszeile automatisch
Markus

Hi LeuteHabe folgendes Prob!Gibt es einen Code mit dem ich über „Seite einrichten“ in die Layoutansicht und anschl. in die Kopf und Fusszeile springen kann? Noch besser wäre es wenn das über UsrForm irgendwie ginge!Danke und Gutes Nächtle
Markus

15.02.2003 23:55:40
Thread-ID: 219671
3 Beiträge
Kopf und Fusszeile automatisch
Markus

Hi LeuteHabe folgendes Prob!Gibt es einen Code mit dem ich über „Seite einrichten“ in die Layoutansicht und anschl. in die Kopf und Fusszeile springen kann? Noch besser wäre es wenn das über UsrForm irgendwie ginge!Danke und Gutes Nächtle
Markus

15.02.2003 23:55:40
Thread-ID: 219672
3 Beiträge
Eintragen in Kopf und Fusszeile
Markus

Hi ExcelanerHabe mir gestern schon einmal Hilfe hier im Forum geholt die mich um einiges weiter gebracht hat. Ich habe allerdings noch ein Problem. Uns zwar möchte ich bei einem Tabellen Blatt individuell einen Eintrag in der Kopfzeile ändern können. Der nachfolgende Code ermöglicht mir zwar da...
16.02.2003 20:28:05
Thread-ID: 219950
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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