Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1512to1516
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
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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? ?
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 :-(
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
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

300 Forumthreads zu ähnlichen Themen

Seitenrand bei Kopf und Fusszeile
TomTom

Hi,
ich habe eine ExcelSeite in Queerformat mit vielen Informationen drauf. Die Seite ist so eingestellt, dass der rechte und der linke Seitenrand auf 0,7 eingestellt sind. Nun wollte ich noch eine Kopf und eine Fusszeile einfügen.
Die Kopfzeile ist eine Überschrift (Text) und ich habe...
29.08.2008 10:16:00
Thread-ID: 1005710
2 Beiträge
Anzeige
Kopf- und Fußzeile schützen
Ulla

Hallo,
ich habe in Excel einige Formulare erstellt. Damit niemand die Kopfzeile und die Fußzeile verändern kann, möchte ich einen Schreibschutz drauflegen.
Ist das überhaupt möglich?
Wenn ja, wie?
Vielen Dank für Eure Unterstützung.
Grüße
Ulla
06.04.2010 11:18:07
Thread-ID: 1150296
2 Beiträge
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
Anzeige
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
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
Kopf- und Fußzeile
haw

Hallo Excelfreunde,
nun werkel ich schon seit 20 Jahren mit Excel und auch VBA. Ich habe folgenden Code, um die Kopf- und Fußzeile zu definieren:
Application.PrintCommunication = False
ws.PageSetup.PrintTitleRows = "$1:$1"
With ws.PageSetup
.CenterHeader = "&D"
.Righ...
12.09.2013 07:07:58
Thread-ID: 1330423
10 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 mit VBA
Norbert

Hallo Spezialisten
ist es möglich, die Kopf- und Fusszeile so zu definieren wie im Bild?
Linke Kopfzeile:
Die gelbmarkierten Felder sollen über eine Messagebox eingefügt werden.
Kann die Messagebox auf einmal 4 Zeilen aufnehmen?
Mittig Kopfzeile:
Preisliste gültig ab als...
25.03.2015 10:27:32
Thread-ID: 1417010
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
1
4
1
4
1
4
5
9
11
4
4
6
7
2
1
2
2
2
1
2
8
3
3
1
3