Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pagesetup funktioniert nicht und langsam

Pagesetup funktioniert nicht und langsam
12.11.2016 17:34:56
Peter
Hallo Ihr Excelspezialisten,
ich habe mir eine Druckvorschau erstellt. Leider habe ich ein Problem, durch die Footer
ist das ganze extrem langsam.
Wenn ich die Footer herausnehme läuft das Ganze sehr schnell.
Wo liegt bitte der Fehler? Was kann man dagegen machen?
Sub Druckvorschau_2016_11_12()
SpalteL = Range("M65536").End(xlUp).Row      'SpalteL ist der Massstab für das berechnen der  _
letzten beschriebenene Zelle in Spalte K = PLZ da immer ausgefüllt
Sheets("Tabelle1").Select
Makro_Spalten_ausblenden
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintArea = ""    'Druckbereich aufheben
.LeftFooter = ""    'linke Fusszeile löschen
.CenterFooter = ""  'mittlere Fusszeile löschen
.PrintTitleRows = "$1:$1"
.PrintArea = Range("A1:Y" & SpalteL).Address
.LeftFooter = "&""Arial,Fett""&14" & "aktuelles Datum: &D"
.CenterFooter = "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D3") & " Anzahl:   " &  _
Worksheets("Hilfstabelle").Range("F3") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D4") & " Anzahl:   " & Worksheets("Hilfstabelle").Range("F4") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D5") & " Anzahl:   " & Worksheets("Hilfstabelle").Range("F5")
.RightFooter = "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D6") & " Anzahl:   " &  _
Worksheets("Hilfstabelle").Range("F6") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D7") & " Anzahl:   " & Worksheets("Hilfstabelle").Range("F7") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D8") & " Anzahl:   " & Worksheets("Hilfstabelle").Range("F8")
Application.PrintCommunication = True
ActiveSheet.PrintPreview
Makro_alle_Spalten_einblenden
End With
ActiveSheet.Range("A1").Select
End Sub

Besten Dank für Eure Hilfe.
Gruss Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Pagesetup funktioniert nicht und langsam
13.11.2016 10:13:55
fcs
Hallo Peter,
du hast einen logischen Fehler im Makro:
Tabelle muss selektiert werden bevor die letzte Zeile im Blatt berechnet wird.
Dann berechnest du die Letzte Zeile in Spalte M und nicht wie in denem Kommentar angegeben in Spalte K.
Die Zeile 
    Application.PrintCommunication = False

führt nach meiner Erfahrung zu Problemen, wenn man in dem gleichen Makro auch direkt die Seitenvorschau oder den Ausdruck startet.
Nach Microsoft-Auskunft in der Hilfe soll so der PageSetup beschleunigt werden, aber ich hab da schon öfters nur Müll in Druck/Vorschau erhalten.
Diese Zeile und die entsprechend Zeile mit "= True" einfach weglassen.
Außerdem musst du aufpassen, dass die Gesamtzeichenzahl für eines der Footer-Elemente nicht 255 Zeichen überschreitet. Das ist meines Wissens eine Excel-Grenze.
Gruß
Franz 
Sub Druckvorschau_2016_11_12()
Dim wksH As Worksheet
Set wksH = Worksheets("Hilfstabelle")
Sheets("Tabelle1").Select 'Tabelle muss selektiert werden bevor letzte Zeile berechnet wird
'SpalteL ist der Massstab für das berechnen der letzten beschriebenene Zelle in _
Spalte K = PLZ da immer ausgefüllt   - warum dann in nächster Zeile "M65536"  ?
SpalteL = Range("M65536").End(xlUp).Row
Makro_Spalten_ausblenden
'Application.PrintCommunication = False     'Problemzeile unter Excel 2010
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.PrintArea = ""    'Druckbereich aufheben
.LeftFooter = ""    'linke Fusszeile löschen
.CenterFooter = ""  'mittlere Fusszeile löschen
.PrintTitleRows = "$1:$1"
.PrintArea = Range("A1:Y" & SpalteL).Address
.LeftFooter = "&""Arial,Fett""&14" & "aktuelles Datum: &D"
.CenterFooter = _
"&""Arial,Fett""&14" & wksH.Range("D3") & " Anzahl:   " & wksH.Range("F3") & Chr(10) _
& "&""Arial,Fett""&14" & wksH.Range("D4") & " Anzahl:   " & wksH.Range("F4") & Chr(10)  _
_
& "&""Arial,Fett""&14" & wksH.Range("D5") & " Anzahl:   " & wksH.Range("F5")
.RightFooter = _
"&""Arial,Fett""&14" & wksH.Range("D6") & " Anzahl:   " & wksH.Range("F6") & Chr(10) _
& "&""Arial,Fett""&14" & wksH.Range("D7") & " Anzahl:   " & wksH.Range("F7") & Chr(10)  _
_
& "&""Arial,Fett""&14" & wksH.Range("D8") & " Anzahl:   " & wksH.Range("F8")
'Application.PrintCommunication = True      'Problemzeile unter Excel 2010
End With
ActiveSheet.PrintPreview
Makro_alle_Spalten_einblenden
Application.ScreenUpdating = True
ActiveSheet.Range("A1").Select
End Sub

Anzeige
AW: Pagesetup funktioniert nicht und langsam
13.11.2016 12:45:29
Peter
Hallo Franz,
besten Dank für Deine Hilfe.
Ich habe das Makro ausprobiert und festgestellt, dass eine Arbeit mit Header und Footer zumindest
seit Einführung Excel 2010 keinen Sinn mehr macht. Das Programm wird extrem langsam.
Ich werde mir für meine Bedürfnisse in diesem Programm eine andere Lösung erstellen.
Ich wünsche Dir noch ein schönes Wochenende.
Gruss Peter

299 Forumthreads zu ähnlichen Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
DisplayHeading funktioniert nicht für alle Sheets
Backblech

Hallo liebe Leute,
ich würde gerne in meiner Excel-Datei auf allen Sheets die Zeilen- und Spaltenbeschriftungen ausblenden. Normalerweise geht das ja ganz einfach mit:
Application.ActiveWindow.DisplayHeadings = False
Soweit, so gut, aber in meiner Datei werden bei Aufruf des Befehls...
22.09.2008 10:55:07
Thread-ID: 1011404
5 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 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
2
2
1
3
2
5
3
7
4
2
2
6
2
2
7
6
4
1
1
7
4
2
4
2
4