Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisches makro vor drucken

Forumthread: automatisches makro vor drucken

automatisches makro vor drucken
11.03.2003 11:58:50
arwed
ich benötige ein makro, daß folgendes ausführt: leere zeilen nicht drucken, alle zellen so groß macht wie nötig und sich automatisch vor dem drucken aktiviert. ach ja dafür muss bestimmt vorher noch der zellschutz deaktiviert und anschließend wieder aktiviert werden. geht so was überhaupt?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: automatisches makro vor drucken
11.03.2003 12:18:32
rico

zeichne die Aktionen mit dem Makrorecorder auf und dann den Code in VBA unter DieseArbeitsmappe unter Private Sub Workbook_BeforePrint(Cancel As Boolean) anordnen.

Re: automatisches makro vor drucken
11.03.2003 12:24:55
Lutz

Hallo arwed,

Zellen so groß wie nötig ??? Weiß ich nicht, was Du meinst.
Ansonsten hier schon mal ein Ansatz :

Dim iRow As Integer, iRowL As Integer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect ("Dein Passwort")
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 1)) Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
ActiveSheet.Protect ("Dein Passwort")
End Sub

Gruß
Lutz

Anzeige
Re: automatisches makro vor drucken
11.03.2003 14:05:14
arwed

erst mal danke lutz, zellen so groß wie nötig bedeutet zeilenhöhe ist optimal, da teilweise zeilenumbrüche vorhanden sind.

;

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