Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variable Kopf- und Fußzeilen

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").Value
ActiveSheet.PageSetup.LeftFooter = ActiveSheet.Range("P2").Value
ActiveSheet.PageSetup.CenterFooter = ActiveSheet.Range("P3").Value
ActiveSheet.PageSetup.RightFooter = ActiveSheet.Range("P4").Value
End If
If ActiveSheet = Sheets("Tabelle2") Then
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Range("P1").Value
ActiveSheet.PageSetup.LeftFooter = ActiveSheet.Range("P2").Value
ActiveSheet.PageSetup.CenterFooter = ActiveSheet.Range("P3").Value
ActiveSheet.PageSetup.RightFooter = ActiveSheet.Range("P4").Value
End If
If ActiveSheet = Sheets("Tabelle3") Then
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Range("P1").Value
ActiveSheet.PageSetup.LeftFooter = ActiveSheet.Range("P2").Value
End If
End Sub

Wenn ich die Seite drucke, bekomme ich die Fehlermeldung:
Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Welchen Codefehler habe ich?
Gruß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: variable Kopf- und Fußzeilen
23.07.2012 17:09:50
hary
Hallo Hans
Versuch mal so. Ungetestet! 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
Select Case .Name
Case "Tabelle1", "Tabelle2"
.PageSetup.LeftHeader = .Range("P1").Value
.PageSetup.LeftFooter = .Range("P2").Value
.PageSetup.CenterFooter = .Range("P3").Value
.PageSetup.RightFooter = .Range("P4").Value
Case "Tabelle3"
.PageSetup.LeftHeader = .Range("P1").Value
.PageSetup.LeftFooter = .Range("P2").Value
Case Else
End Select
End With
End Sub

gruss hary
AW: variable Kopf- und Fußzeilen
23.07.2012 17:40:34
Hans
Hallo,
der Laufzeitfehler ist weg, allerdings kommen jetzt ein paar andere Schwierigkeiten:
Ich habe meine Blätter mehrsprachig gemacht. Je nach (auf dem ersten Blatt) gewählter Sprache, werden auf jedem einzelnen Tabellenblatt in den Felder P1 bis P10 die auf diesem Blatt benötigten anderssprachigen Ausdrücke über SVerweis hingezogen.
Das bedeutet, ich darf immer nur die Zellen des aktuellen Blattes ziehen und nicht die, eines anderen Tabellenblattes. Deshalb hatte ich die Abfrage, auf welchem tabellenblatt ich bin und es sollen dann genau die zellen P1 bis P10 dieses tabellenblattes gezogen werden.
Weiterhin wird die Fomatierung bei der Übernahme überschrieben. bspw. ist der linke Header in Fett, Arial 14. Beim automatischen Ersetzen ist es anschließend Normal, Arial 11.
Drittes Problem: Der Austausch der Wörter funktioniert nur, wenn ich manuell den Druckbefehl auslöse. Auf dem Blatt habe ich aber eine Schaltfläche, die per VBA einen Ausdruck auslöst, der nur die beschrifteten zeilen druckt. Bei diesem Druckmakro werden die Fuß- und Kopfzeilenbeschriftungen nicht ausgetauscht.
Gruß
Anzeige
AW: variable Kopf- und Fußzeilen
24.07.2012 00:39:04
fcs
Hallo Hans,
wenn du die Kopf-/Fusszeilen per VBA ausfüllst, dann muss die Formatierung immer mit Übergeben werden, wenn sie vom Standard abweicht. Dies erfolgt durch eine vorangestelltes "&" als Steuerzeichen. 
    With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Bold""&14" & ActiveSheet.Range("P1").Text
.LeftFooter = "&""Calibri,Standard""&10" & ActiveSheet.Range("P2").Text
End With
Warum funktioniert es nicht wenn du per Schaltflächen druckst?
Werden in dem Druckmakro die Ereignismakros deaktiviert (Application.Enable>Events = False)?
Wenn du per Schaltfläche druckst, ist dann das zu druckende Blatt auch wirklich das aktive Blatt?
Druckst du immer nur ein Tabellenblatt? oder eine Gruppe von Blättern?
All dies kann zu Fehlern führen, aktives Blatt und zu druckendes Blatt nicht harmonieren. Dann muss man das PageSetup ggf. in das Drucken-Makro in geeigneter Form einbauen.
Gruß
Franz
Anzeige
AW: variable Kopf- und Fußzeilen
24.07.2012 15:23:47
Hans
Hallo Franz,
danke für die Infos. Fast alle Probleme sind jetzt gelöst, bis auf Eines:
Wenn ich den Druck über den normalen Druckbefehl aufrufen, funktioniert der Austausch der Inhalte von Kopf und Fußzeilen inklusive Formatierung einwandfrei.
Wenn ich die Seiten jedoch über ein Druckmakro aufrufe (das nur eine definierte Seitenzahl druckt):
ActiveSheet.PrintOut Copies:=1, from:=1, To:=x
Dann habe ich vor jedem Text Zusatztext stehen. bspw. steht dann dort statt dem gewünschen Wort "Liste" das Wort "9B9B9BListe". Dieses 9B9B9B steht vor jedem Text.
Woran kann das liegen?
Gruß
Anzeige
AW: variable Kopf- und Fußzeilen
24.07.2012 23:04:42
fcs
Hallo Hans,
für dieses Phänomen hab ich keine Erklärung. Da müsste man die Möglickeit haben, sich die Datei mal direkt anzuschauen.
Gruß
Franz

308 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Verweis auf Zelle
gpc44

hallo,
ich lese den INhalt eines Sheet über Recordset aus, und verarbeite die Daten.
Nachdem die Daten verarbeitet sind, bräuchte ich den Hinweis, aus welcher Zelle
der jew. Inhalt kommt, damit ich die Zelle z.B. farblich markieren kann.
Frage: kann ich aus dem Recordset einen R...
13.01.2009 09:42:32
Thread-ID: 1039115
4 Beiträge
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
Hyperlink - TextToDisplay verweis auf Zelle
Andreas

hallo zusammen
diesen code habe ich aus einem makro mit welchem ein inhaltsverzeichnis erstellt wird. nun möchte ich aber anstelle des blattnamens jeweils den wert aus der zelle c14 als text bei «TextToDisplay». ist das möglich? wie müsste die eingabe «wbVerz.Sheets(i).Name» abgeändert werd...
30.09.2009 07:58:20
Thread-ID: 1106316
3 Beiträge
CommandButton Verweis auf Zelle
Andre´

Hallo alle zusammen,
ich habe eine UserForm mit 154 CommandButton und ein Tabellenblatt ebenfalls mit 154 Zellen
Beim initialisieren der UserForm soll quasi jeder Button mit einer Zelle überprüft werden, ob ein "B" enthalten ist.
Wenn ja, dann soll die Farbe des Button rot sein.
...
02.11.2009 16:38:17
Thread-ID: 1113883
14 Beiträge
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
Auswahl Dropdown mit Zellen verknüpfen
Frank

N'Abend
Kurze Fragen:
1. - Wie stelle ich es an das im Dropdown die hinterlegten Werte die zur Auswahl stehen, bei Auswahl AA2 die nebenstehenden Werte in den Zellen rechts davon angezeigt werden? ( siehe Bespieltabelle )
2. - Wie kann das ganze Prozedere in einem Bezeichnungsfeld:...
12.04.2010 11:21:48
Thread-ID: 1151119
3 Beiträge
PrintOut und Kopf- & Fußzeilen in VBA
bert

Hallo Leute,
ich habe ein etwas eigenartiges Problem.
Ich verändere die Kopf- & Fußzeilen mittels VBA, um diese Daten immer so anzuzeigen.
Im Normalbetrieb (Seitenansicht und Einzelseitendruck) geht es ohne Probleme mit der Sub:
Private Sub Workbook_BeforePrint(Cancel As B...
05.05.2010 13:23:18
Thread-ID: 1155339
4 Beiträge
Anzeige

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