Umbruchvorschau per VBA

Forumthread: Umbruchvorschau per VBA

27.05.2019 14:24:20

Georg

Liebe Mitglieder,
im folgenden Code bringe ich die Umbruchvorschau nicht unter.
Wie bekomme ich .view hier hinein. Im aktuellen Code wir nur das aktive Fenster entsprechend aktualisiert, was ja auch eindeutig so drin steht. Wie bekomme ich es für alle Blätter 2-13 rein?, Danke und Gruß

Sub RechenSpaltenAusbl()
Dim i As Integer
Dim j As Integer
Application.Calculation = xlCalculationManual
For i = 2 To 13
With ThisWorkbook.Worksheets(i)
For j = 16 To 30
.Columns(j).Hidden = True
Next j
ActiveWindow.View = xlPageBreakPreview
End With
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umbruchvorschau per VBA

27.05.2019 14:42:12

Marco

AW: Umbruchvorschau per VBA

27.05.2019 14:42:12

Marco

Hallo Georg,
versuch einmal das:

Sub RechenSpaltenAusbl()
Dim i As Integer
Dim j As Integer
Application.Calculation = xlCalculationManual
For i = 2 To 13
For j = 16 To 30
ThisWorkbook.Worksheets(i).Columns(j).Hidden = True
ActiveWorkbook.Worksheets(i).Select
Application.Calculation = xlCalculationAutomatic
ActiveWindow.View = xlPageBreakPreview
Next j
Next i
End Sub

Viele Grüße
Marco

Infobox / Tutorial

Umbruchvorschau in Excel per VBA optimieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Erstelle ein neues Modul: Klicke im Projekt-Explorer mit der rechten Maustaste auf deinen Workbook-Namen, wähle Einfügen und dann Modul.

Füge den folgenden Code ein:

Sub RechenSpaltenAusbl()
   Dim i As Integer
   Dim j As Integer
   Application.Calculation = xlCalculationManual
   For i = 2 To 13
       With ThisWorkbook.Worksheets(i)
           For j = 16 To 30
               .Columns(j).Hidden = True
           Next j
           .Activate
           ActiveWindow.View = xlPageBreakPreview
       End With
   Next i
   Application.Calculation = xlCalculationAutomatic
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus: Drücke ALT + F8, wähle RechenSpaltenAusbl und klicke auf Ausführen.

Häufige Fehler und Lösungen

Fehlermeldung: "Fehler beim Ausführen des Makros"
- Lösung: Stelle sicher, dass du die richtigen Arbeitsblätter (2 bis 13) in deinem Workbook hast. Die Arbeitsblätter müssen existieren, damit der Code korrekt funktioniert.
Umbruchvorschau wird nicht angezeigt
- Lösung: Überprüfe, ob die ActiveWindow.View = xlPageBreakPreview innerhalb des With-Blocks platziert ist. Es sollte nach dem Ausblenden der Spalten aufgerufen werden, um sicherzustellen, dass die Umbruchvorschau korrekt angezeigt wird.

Alternative Methoden

Wenn du keine VBA-Anwendung verwenden möchtest, kannst du die Umbruchvorschau auch manuell aktivieren:

Gehe zu dem Arbeitsblatt, das du bearbeiten möchtest.
Wähle im Menü Ansicht.
Klicke auf Umbruchvorschau.

Diese Methode ist jedoch zeitaufwändiger, wenn du mehrere Blätter bearbeiten musst.

Praktische Beispiele

Hier ist ein einfaches Beispiel, um die Umbruchvorschau in einem Arbeitsblatt zu aktivieren:

Sub UmbruchvorschauAktivieren()
    ActiveWindow.View = xlPageBreakPreview
End Sub

Dieses Makro aktiviert die Umbruchvorschau für das aktuell aktive Arbeitsblatt. Du kannst es kombinieren mit dem obigen Code, um die Umbruchvorschau für alle Blätter 2 bis 13 zu aktivieren.

Tipps für Profis

Makros zuweisen: Weise dein Makro einer Schaltfläche zu, um den Zugriff zu erleichtern.
Automatisierung: Überlege, ob du die Umbruchvorschau automatisch aktivieren möchtest, wenn du Daten in die Arbeitsblätter eingibst.
Testen: Teste deinen Code in einer Kopie deiner Arbeitsmappe, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Umbruchvorschau für alle Arbeitsblätter aktivieren? Um die Umbruchvorschau für mehrere Arbeitsblätter zu aktivieren, kannst du den oben genannten VBA-Code verwenden, der die Umbruchvorschau für die Blätter 2 bis 13 einstellt.

2. Funktioniert dieser VBA-Code in allen Excel-Versionen? Ja, der Code sollte in den meisten modernen Versionen von Excel funktionieren, die VBA unterstützen. Achte jedoch darauf, dass du die Codezeilen entsprechend deiner spezifischen Excel-Version anpassen kannst.

Beliebteste Forumthreads (12 Monate)