Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
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
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wechsel von Druckansicht - zu Normalansicht

Forumthread: Wechsel von Druckansicht - zu Normalansicht

Wechsel von Druckansicht - zu Normalansicht
14.03.2003 15:08:03
Christian Witt
Hallo Experten

Habe folgendes Problem:
Ich lasse mir die Druckansicht über Makro erzeugen, wobei ich vorher nach definierten Daten filtere. Verlasse ich nun diese Druckansicht übern den Knopf "Schließen", dann ist in der Normalansicht selbstverständlich der Filter aktiv. Das will ich aber vermeiden.

Wie kann man ein Makro aktivieren beim Übergang von der Druckansicht zur Normalansicht via den Knopf "Schließen"? Oder gibt es andere Lösungen?

Merci für Eure Antworten

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wechsel von Druckansicht - zu Normalansicht
14.03.2003 15:09:27
Richard

wo ist der code??

Re: Wechsel von Druckansicht - zu Normalansicht
14.03.2003 15:18:57
Christian Witt

Das ist das Makro:

Sub FilternUndDrucken()
'
' FilternUndDrucken Makro
' Makro am 12.03.2003 von Witt, Christian aufgezeichnet
'
' FILTERNAuchBeiBLATTSCHUTZ() Wiederholung des Makros
' sonst Fehler möglich:
ActiveSheet.Protect Password:="Hallo"
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
' Das eigentliche Filtern nach Spalte D:
Selection.AutoFilter Field:=4, Criteria1:="<>"
' Seitenansicht Vorschau:
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub

Anzeige
Re: Wechsel von Druckansicht - zu Normalansicht
14.03.2003 15:24:57
Richard

ergänze nach der Seitenansicht
ActiveSheet.AutoFilterMode = False

Re: Wechsel von Druckansicht - zu Normalansicht
14.03.2003 17:57:01
Christian

Super! Merci vielmal Richard.
Gruss Christian

;

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