Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fußzeile per VBA

Fußzeile per VBA
02.10.2008 13:27:36
Ingo
Hallo zusammen,
ich habe folgendes Problem. Meine Datei hat ausgedrucht 24 Seiten. In der Druckvorschau jeweils 12 untereinander und nochmal 12 daneben. Ich möchte gerne in die erste Säule die Fußzeile Zeitfenser_I und in die 2. säule die Fußzeile Zeitfenster _II einfügen. Die Beiden begriffe stehen auch jeweils in den Zellen B5 und G5.
Hilfe wäre super.
mfG
Ingo Christiansen

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

Betreff
Datum
Anwender
Anzeige
AW: Fußzeile per VBA
02.10.2008 16:34:12
fcs
Hallo Ingo,
abhängig von der Einstellung der Druckreihenfolge für die Seiten. Kannst du eines der beiden folgenden Makros verwenden.
Die Preview-Option kannst du weglassen oder auf False setzen, wenn alles wie gewünscht funktioniert
Gruß
Franz

Sub Druck_Special_1()
'Seitenreihenfolge: nach unten, dann rechts
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
.PageSetup.RightFooter = .Range("B5").Text
.PrintOut from:=1, to:=12, Preview:=True
.PageSetup.RightFooter = .Range("G5").Text
.PrintOut from:=13, to:=24, Preview:=True
.PageSetup.RightFooter = ""
End With
End Sub
Sub Druck_Special_2()
'Seitenreihenfolge: nach rechts, dann unten
Dim wks As Worksheet, intPage As Integer
Set wks = ActiveSheet
With wks
For intPage = 1 To 24
If intPage Mod 2 = 1 Then
.PageSetup.RightFooter = .Range("B5").Text
Else
.PageSetup.RightFooter = .Range("G5").Text
End If
.PrintOut from:=intPage, to:=intPage, Preview:=True
Next
.PageSetup.RightFooter = ""
End With
End Sub


Anzeige
AW: Fußzeile per VBA
02.10.2008 17:02:10
Ingo
Hallo Franz,
Funktioniert prima!
Dankeschön!
Kann ich eigentlich die Anzahl der Seiten, wenn es mal nicht gerafe 24 sind irgendwie ermitteln und an eine variable übergeben?
mfG
Ingo Christiansen
AW: Fußzeile per VBA
02.10.2008 18:09:29
fcs
Hallo Ingo,
über die Anzahl horizontaler Seitenwechsel, kann man die Seitenzahl variable ermitteln.
Makros schauen dann wie folgt aus. Getestet mit Excel 2003
Gruß
Franz

Sub Druck_Special_1()
'Seitenreihenfolge: nach unten, dann rechts
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
.PageSetup.RightFooter = .Range("B5").Text
.PrintOut from:=1, To:=.HPageBreaks.Count + 1, Preview:=True
.PageSetup.RightFooter = .Range("G5").Text
.PrintOut from:=.HPageBreaks.Count + 2, To:=2 * .HPageBreaks.Count + 2, Preview:=True
.PageSetup.RightFooter = ""
End With
End Sub
Sub Druck_Special_2()
'Seitenreihenfolge: nach rechts, dann unten
Dim wks As Worksheet, intPage As Integer
Set wks = ActiveSheet
With wks
For intPage = 1 To 2 * .HPageBreaks.Count + 2
If intPage Mod 2 = 1 Then
.PageSetup.RightFooter = .Range("B5").Text
Else
.PageSetup.RightFooter = .Range("G5").Text
End If
.PrintOut from:=intPage, To:=intPage, Preview:=True
Next
.PageSetup.RightFooter = ""
End With
End Sub


Anzeige

299 Forumthreads zu ähnlichen Themen

Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Anzeige
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Datei öffnen und ausblenden (VBA)
David

Folgendes Makro soll einfach nur eine Datei öffnen, die für die aktuelle Tabelle (offen) gebraucht wird und anschließend ausblenden:
Sub auto_open() Workbooks.Open Filename:= _ "X:\Finanz\GP\BV\LE 2008\Zahlen.xls" ActiveWindow.Visible = False End Sub
Komischerweise wird sowohl die hi...
14.08.2008 14:55:00
Thread-ID: 1001877
5 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
1
4
5
3
2
12
16
7
4
4
1
7
2
2
2
1
7
2
14
3
5
2
4
6
3