Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BeforePrint bzw. Printout Merkwürdigkeit

BeforePrint bzw. Printout Merkwürdigkeit
13.05.2005 21:16:28
Heiko
Hallo Leute,
kann mir mal einer erklären warum sich meine Beispielmappe so komisch verhält ?!
Wenn ich in EXCEL ganz normal auf Drucken drücke dann wird über den Code im Workbook_BeforeClose der Kopf und Fusstext angepasst. Im Debugger in Einzelschritt wird der gesamte Code in Workbook_BeforeClose durchlaufen und mir zuletzt der Name der gerade bearbeiteten Tabelle ausgegeben.
Wenn ich nun aber über den Button in Tabelle 1 das Userform aufrufe und da in der Listbox eine Tabelle zum drucken auswähle und dann auf den Drucken Button im Userform drücke passiert folgendes.
Der Code hinter dem Button startet einen Ausdruck des gewählten Tabellenblattes über .Printout.
Damit wird ja nun auch wieder die Workbook_BeforeClose Routine durchlaufen.
Soweit so gut, aber es werden die Kopf und Fusstexte nicht verändert. Obwohl im Debugger in Einzelschritt wieder der gesamte Code in Workbook_BeforeClose durchlaufen wird und mir zuletzt der Name der gerade bearbeiteten Tabelle ausgegeben.
https://www.herber.de/bbs/user/22597.xls

Was ist der Unterschied zwischen Printout und drucken über den normalen Weg.
Danke schon mal für Ideen und Tipps,
Gruß Heiko

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BeforePrint bzw. Printout Merkwürdigkeit
13.05.2005 22:01:30
Bert
Hi,
in deiner Mappe gibts kein Workbook_before_close, kann also irgendwas mit deiner
Beschreibung nicht stimmen.
mfg Bert
Workbook_BeforePrint statt _BeforeClose
13.05.2005 22:29:02
Heiko
Hallo Bert,
danke für den Tipp.
Ich meine natürlich (immer) Workbook_BeforePrint und nicht BeforeClose, also dieses SUB.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Windows(1).SelectedSheets
wks.PageSetup.RightFooter = "Test"
wks.PageSetup.CenterFooter = "Test"
wks.PageSetup.LeftFooter = "Test"
wks.PageSetup.CenterHeader = "Test"
MsgBox wks.Name
Next wks
' Cancel = True
End Sub

Gruß Heiko
Anzeige
AW: Workbook_BeforePrint statt _BeforeClose
13.05.2005 22:37:54
Bert
Hi,
hab ich mir schon gedacht. Wenn du vom userform aus druckst, wird immer nur ein
Blatt gedruckt, da die Eigenschaft Multiselect auf single steht, oder selektierst
vorm Anzeigen des userforms alle Blätter von Hand?
mfg Bert
AW: Workbook_BeforePrint statt _BeforeClose
13.05.2005 23:04:45
Heiko
Hallo Bert,
das ist natürlich nur ein kleiner Teil des Programmes. Im echten kann man im Userform per Multiselect in der Listbox auch mehrere Blätter ausdrucken. Habe die Mappe halt soweit wie möglich geschrumpft um hier nicht zuviel Code einzustellen durch den sich die Helfer durcharbeiten müßten.
Multiselect ist aber nicht mein Problem, sondern die Frage warum werden im BeforePrint Sub die Pagesetup Eigenschaften geändert wenn man auf das Drucken Icon in Excel drückt, aber nicht wenn man auf den Button im Userform drückt. Obwohl in beiden Fällen der Code in BeforePrint (im Debbuger Fenster selbst gesehen) durchlaufen wird.
Schon mal danke für deine Antworten, aber hast du noch nen Tipp bezüglich des verschiedenen Verhaltens wenn der Code in BeforPrint durchlaufen wird ?
Gruß Heiko
Anzeige
AW: Workbook_BeforePrint statt _BeforeClose
13.05.2005 23:51:29
Bert
Hi,
du hast die Bedingung For Each wks In ActiveWorkbook.Windows(1).SelectedSheets
Wenn du vom Userform aus druckst ist nur eine Tabelle ausgewählt und die muss
ja nicht zwingend die aktive sein, also ist die bedingung nicht erfüllt.
mfg Bert
AW: Workbook_BeforePrint statt _BeforeClose
14.05.2005 09:24:36
Heiko
Hallo Bert,
das ist ja alles richtig was du sagst, aber warum wird dann der Code der wks For Each Schleife im Debugger durchlaufen und mir sogar der Name der gewählten Tabelle in der MsgBox ausgegeben. Im Lokalfenster wird für wks Worksheet/Tabelle1 angezeigt.
Hast du mal den Text (Test) im BeforePrint verändert und mal testweise auf Drucken im Userform gedrückt. (Brauchst dazu nur Tabelle1 in der Listbox auswählen.)
Wenn du dann denn Code in Einzelschritt (F8) durchläufst wird der Code mit den PageSetup Zeilen durchlaufen, aber die Fuss und Kopftexte nicht verändert.
Drückst du auf drucken in EXCEL (Printer ICON) passiert genau das gleiche, der Code wird durchlaufen, aber die Texte werden verändert.
WARUM ?
Vielleicht bin ich ja auch zu blöd und seh den Wald vor lauter Bäumen nicht.
Vielen Dank für deine Antworten und Tipps, vielleicht hast du ja noch ne Idee!
Gruß Heiko
Anzeige

90 Forumthreads zu ähnlichen Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
KW in Datum
ToMa

Hallo Leute!
Ich habe ein kleines Problem.
in Zelle A1 ist das Jahr (zB: 2008),
in Zelle A2 ist die Kw (zB: 28)
in Zelle C1 möchte ich Datum von Mittwoch dieser (zB: 28) Woche.
in Zelle C2 möchte ich Datum von Freitag dieser (zB: 28) Woche.
mit diese Formeln bekomme ich...
07.10.2008 20:13:00
Thread-ID: 1014809
4 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Anzeige
Was ist dass Es erscheinen merkwürdige Makros ???
juergen

Hallo liebe Excel Gemeinde
Bei mir passiert etwas sehr mekwürdiges.Und zwar
Öffne ich Excel mit leerem Blatt und gehe dann in die VBA Umgebung ist alles sauber.
Öffne Ich die Exceldatei von Hajo.Ziplies "nur_mit_aktivierten_makros_zeit_loeschen.xls"
Und gehe dann auf Makros...
30.03.2009 19:21:05
Thread-ID: 1065401
8 Beiträge
KW und Tag in Datum ausgeben!
lisa

Hallo
Ich habe hier einen Hänger und komme nicht weiter!
In meiner Zelle A1 steht das Datum 01.01.2009 und in B2 die Formel =KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7) und somit eine 1 für die KW1!
Jetzt habe ich in A2 152 stehen, was bedeuten soll, KW15 Tag 2!...
10.06.2009 13:32:56
Thread-ID: 1080458
6 Beiträge
Datum aus Kalenderwoche
Matthias V.

Hallo zusammen,ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.Ich ermittele nun mit:Sub kw()Dim kw As Integerkw = DatePart("...
16.05.2002 16:31:23
Thread-ID: 121427
6 Beiträge
Datum richtig ausgeben in VBA
Stefan

Guten Morgen,
ich habe ein kleines Problem.
Der folgende Befehl .Cells(iCntRows, 28) = Left(.Cells(iCntRows, 8), 10) liefert das Datum zurück, allerdings nicht so, dass ich damit als Datum weiterarbeiten können. Excel denkt, es sei ein textformatiertes Feld.
Wie kann ich daraus ein...
19.10.2011 08:51:55
Thread-ID: 1234448
4 Beiträge
Datum aus Wochentag und KW berechnen
Dietmar

Guten Abend zusammen,
ich tüftele an einer Formel, die mir das Datum der aktuellen Kalenderwoche berechnen soll, wenn der Wochentag in einer Zahlenkette angegeben ist; komme aber nicht drauf.
Also gegeben ist:
A1 = 0223414 (Zahlenkette; relevant ist die zweite Ziffer von rechts, hie...
02.10.2012 21:40:36
Thread-ID: 1280305
8 Beiträge

Links zu Excel-Dialogen

ListBox UserForm

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
6
6
3
4
2
7
5
5
3
7
12
4
2
2
2
12
7
12
9
7
3
7
4
2
47