Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fusszeile auf erster Seite anders oder gar nicht

Forumthread: Fusszeile auf erster Seite anders oder gar nicht

Fusszeile auf erster Seite anders oder gar nicht
04.04.2005 11:07:57
Thommy
Hallo,
ich möchte, dass meine Fusszeile (ein Bild rechte Seite) nicht auf der ersten Seite meines Arbeitsblattes beim Ausdrucken erscheint. Habe jetzt ein wenig herumexperimentiert, bin aber immer gescheitert. Daher nun meine Frage an all diejenigen, die mehr Erfahrung mit Makros haben als ich. Ist dies möglich? Wenn ja, wie kann ich das anstellen?
Danke
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fusszeile auf erster Seite anders oder gar nicht
04.04.2005 11:29:41
Hajo_Zi
Hallo Thommy,
Du mußt den Druck über ein Makro machen.

Sub Drucken()
'   Bilder in Kopfzeile nur für XP
'   ich glaube der Ansatz ist von Ramses (Rainer)
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = 1 Then
.PageSetup.CenterFooter = "Seite 1"
.PageSetup.RightHeaderPicture.Filename = _
"E:\Eigene Dateien\Eigene Bilder\Bilder\bbapril_big08.jpg"
Else
.PageSetup.CenterFooter = "größer Seite 1"
.PageSetup.RightHeaderPicture.Filename = _
"E:\Eigene Dateien\Eigene Bilder\Bilder\bbtracy_big10.jpg"
End If
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
;

Forumthreads zu verwandten Themen

Spaltenüberschrift auf jeder Druckseite anzeigen
Stefan

Hallo,
wie bekomme ich es hin, dass bei einem Mehrseitendruck immer die Spaltenüberschrift ("I1:Z1")
auch auf der zweiten, dritten usw. Seite zur Orientierung angegeben wird?
Mein Code sieht bislang wie folgt aus:
Sub DruckBereich() Dim X As Range Set X = Range(Cells(1, 9), _...
03.03.2009 12:25:07
Thread-ID: 1055916
4 Beiträge
Anzeige
Überschriftzeile auf jeder Druckseite
thoemmy

Hallo VBAler
Ich habe eine ewig lange Tabelle die ich drucken möchte.
Ist es möglich dass man angibt, dass auf jeder neuen (Druck)Seite die Überschriftzeile an erster Stelle steht.
In meinem Fall ist der Überschriftsbereich Range(Cells(1,1),Cells(5,35)).
Danke für eure Tipps und...
18.05.2009 13:51:52
Thread-ID: 1075888
2 Beiträge
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
Passworte für alle Blätter
Bernd

Hallo,
mit folgendem Code belege ich sämtliche Blätter mit einem Passwort.
Das Problem ist, dass auch andere Arbeitsmappen auf sämtlichen Seiten einen Passwortschutz erhalten.
Das soll nicht sein. Nur in der einen Mappe sollen die Blätter geschüztz werden.
Was muss an dem Code g...
04.09.2009 18:22:14
Thread-ID: 1100680
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
Ä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
Anzeige
Kopfzeilen nicht auf erster Seite
Heindl

Hallo,
ich habe ein Tabellenblatt (Excel2000), dass beim Ausdrucken mehrere Seite lang ist. Ich möchte erreichen, dass die Kopfzeile nicht auf der ersten Seite gedruckt wird, sondern nur auf allen restlichen Seiten.
Ich habe hierzu durch die Suchfunktion auch schon eine Lösung gefunde...
26.02.2010 08:26:43
Thread-ID: 1141655
2 Beiträge
Name für alle Blätter, dynamisch, aber ohne...
Norbert

Hallo
ich möchte für alle Tabellenblätter einer Arbeitsmappe einen Namen definieren, dynamisch, da später weiter Blätter hinzukommen. Dies ist ja mit der Formen =ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) möglich.
Aber: Die Tabelle 1 und die Tabelle 3 sollen ausgenommen sein.
Kann mir jema...
02.05.2010 11:51:04
Thread-ID: 1154936
4 Beiträge
Makro für alle Arbeitsblätter
Basti

Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
27.08.2010 08:50:58
Thread-ID: 1174432
8 Beiträge
Anzeige
Spaltenüberschrift auf jeder Seite drucken
Pit

Hallo zusammen,
ich habe ein Problem mit der Spaltenüberschirft.
In meiner Excel - Tabelle habe ich Spaltenüberschriften (A1:K1) vergeben. Die Tabelle zieht sich über mehrere Seiten (es werden wohl ca. 100 Seiten werden). In Excel selbst habe ich mir die Spaltenüberschrift fixiert, so d...
03.03.2011 14:42:26
Thread-ID: 1204064
3 Beiträge
Anzeige
Blattschutz für alle Arbeitsblätter aufheben
Wolfango

Guten Morgen,
ich suche einen VBA-Code, mit welchem ich auf einen Schlag für alle (Anzahl beliebig) in einer Datei vorhandenen Arbeitsblätter den Blattschutz aufheben kann (bei bekanntem Passwort).
Danke!
Gruß,
Wo.
06.05.2011 09:23:08
Thread-ID: 1213302
3 Beiträge
Alle Datensätze auf jedem Tabellenblatt sortieren
Pascal

Guten Tag
Ich habe eine grössere Excel-Arbeitsmappe in welcher verschiedenste Artikelnummern / Artikeldaten gesammelt werden.
Nun möchte ich mittels eines Makros auf allen Tabellen jeweils die Datensätze aufsteigend (nach abc) sortiert haben (immer Spalte B)
Dazu hab ich mir mal fol...
30.12.2011 10:54:18
Thread-ID: 1243943
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige