Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Seitenansicht

Forumthread: Makro Seitenansicht

Makro Seitenansicht
06.09.2016 12:44:34
Max
Hallo ihr Lieben
habe dieses makro erstellt
möchte aber das die seitenansicht nach 10 sec.
wieder in die normalansicht zurück geht
für eure hilfe wäre ich sehr dankbar
lg. max
Sub DRUCKANSICHT()
' DRUCKANSICHT Makro
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Seitenansicht
06.09.2016 12:58:24
Sebastian
Hi
Füge das in ein Modul ein:

Sub test()
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
End Sub

Sub Normalansicht()
'Weiterverarbeiten des Codes
MsgBox "jetzt deinen Code für die Normalansicht"
End Sub

Statt der msgbox dann eben dein Code den du verzögern willst.
Grüße Sebastian
Anzeige
AW: Makro Seitenansicht
06.09.2016 13:18:07
Max
Hallo Sebastian
kannst du mir den code kommplett schreiben
bin eine 0 in sachen vba
gruß max
Sub DRUCKANSICHT()
' DRUCKANSICHT Makro
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
End Sub

Anzeige
AW: Makro Seitenansicht
06.09.2016 13:21:54
Max
Hallo Sebastian
kannst du mir den code kommplett schreiben
bin eine 0 in sachen vba
gruß max
Sub DRUCKANSICHT()
' DRUCKANSICHT Makro
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
End Sub

Anzeige
AW: Makro Seitenansicht
06.09.2016 15:02:40
Sebastian
Hallo Max
Ich befürchte man kommt nicht aus der Druckvorschau raus, da die Makros so lange angehalten werden. Du kannst trotzdem das hier mal versuchen:
Sub test()
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 3), "Normalansicht"
End Sub

Sub Normalansicht()
Application.SendKeys "{ESC}"
End Sub
Grüße Sebastian
Anzeige
AW: danke Sebastian
06.09.2016 15:21:13
Max
danke haut nicht hin
muß was anderes versuchen
lg AX
AW: Makro Seitenansicht
06.09.2016 14:43:09
Rudi
Hallo,
die Druckvorschau kann man nicht automatisch schließen.
Gruß
Rudi
Danke Rudi "schade"
06.09.2016 15:23:24
Max
Danke Rudi "schade"
Anzeige
;
Anzeige

Infobox / Tutorial

Automatisierte Rückkehr von der Druckvorschau in die Normalansicht


Schritt-für-Schritt-Anleitung

Um in Excel die Druckvorschau automatisch für eine bestimmte Zeit anzuzeigen und danach in die Normalansicht zurückzukehren, kannst Du das folgende VBA-Makro verwenden. Dies wird oft als eine praktische Lösung in Excel VBA angesehen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub DRUCKANSICHT()
       ' DRUCKANSICHT Makro
       ActiveWindow.SelectedSheets.PrintPreview
       Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
    End Sub
    
    Sub Normalansicht()
       ' Schließt die Druckvorschau
       Application.SendKeys "{ESC}"
    End Sub
  4. Schließe den VBA-Editor.

  5. Du kannst das Makro jetzt ausführen, um die Druckvorschau anzuzeigen. Nach 10 Sekunden wird die Normalansicht automatisch wiederhergestellt.


Häufige Fehler und Lösungen

  • Problem: Das Makro schließt die Druckvorschau nicht.

    • Lösung: Stelle sicher, dass Du den Befehl Application.SendKeys "{ESC}" in der Normalansicht-Subroutine korrekt eingefügt hast. Manchmal können andere Makros oder Excel-Einstellungen die Ausführung beeinflussen.
  • Problem: Die Zeitverzögerung funktioniert nicht.

    • Lösung: Überprüfe, ob Du die Zeit in TimeSerial korrekt angegeben hast. Der Code verwendet TimeSerial(0, 0, 10) für eine Verzögerung von 10 Sekunden.

Alternative Methoden

Falls das obige Makro nicht funktioniert, kannst Du folgende Alternativen in Betracht ziehen:

  • Verwende die Application.Wait-Methode, um eine Pause im Makro einzufügen. Dies könnte jedoch die Exaktheit der Automatisierung beeinträchtigen:

    Sub DRUCKANSICHT()
       ActiveWindow.SelectedSheets.PrintPreview
       Application.Wait Now + TimeValue("00:00:10")
       Call Normalansicht
    End Sub

Diese Methode ist einfacher, kann jedoch die Benutzererfahrung beeinträchtigen, da Excel während der Wartezeit nicht reagiert.


Praktische Beispiele

Hier ein praktisches Beispiel, um die Funktionalität zu testen:

  1. Erstelle ein neues Excel-Dokument.
  2. Füge einige Daten in die Zellen ein.
  3. Führe das DRUCKANSICHT-Makro aus, um die Druckvorschau zu sehen.
  4. Überprüfe, ob die Normalansicht nach 10 Sekunden automatisch zurückkehrt.

Tipps für Profis

  • Verwende Fehlerbehandlung: Füge On Error Resume Next und On Error GoTo 0 hinzu, um mögliche Fehler abzufangen.

  • Optimierung der Zeit: Experimentiere mit der Zeitverzögerung, um die beste Nutzererfahrung zu erzielen. Vielleicht möchtest Du die Zeit von 10 Sekunden auf einen anderen Wert anpassen.

  • Testen in verschiedenen Excel-Versionen: Achte darauf, dass der Code in verschiedenen Versionen von Excel getestet wird, da einige Funktionen je nach Version unterschiedlich reagieren können.


FAQ: Häufige Fragen

1. Kann ich die Zeit für die Druckvorschau ändern?
Ja, Du kannst die Zeit im TimeSerial-Befehl anpassen, um die Dauer der Druckvorschau zu verlängern oder zu verkürzen.

2. Funktioniert das Makro in Excel Online?
Leider funktionieren VBA-Makros nicht in Excel Online. Du benötigst die Desktop-Version von Excel.

3. Was ist, wenn die Druckvorschau sich nicht schließt?
Wenn sich die Druckvorschau nicht schließt, überprüfe, ob andere Makros oder Excel-Einstellungen die Funktionalität beeinträchtigen.

Beliebteste Forumthreads (12 Monate)

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