Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenbreite automatisch anpassen

Forumthread: Seitenbreite automatisch anpassen

Seitenbreite automatisch anpassen
31.03.2005 07:51:50
Henri
Hi,
ich habe eine Tabelle mit variierender Seitenanzahl.
Ich muss eine Spalte in der Breite automatisch anpassen und möchte dann per VBA die Tabelle auf genau eine Seitenbreite und x Seiten hoch anpassen.
So funktioniert das jedoch nicht:

Sub Anpassen()
ActiveSheet.Columns("B:B").AutoFit
ActiveSheet.PageSetup.FitToPagesWide = 1
End Sub

Hate einer eine Idee ?
thx
Henri
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenbreite automatisch anpassen
31.03.2005 10:48:47
u_
Hallo,
da fehlt noch ein bisschen.

Sub anpassen()
Columns("B:B").AutoFit
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub

Gruß
AW: Seitenbreite automatisch anpassen
31.03.2005 12:06:08
Henri
Vielen Dank,
hat funktioniert.
grüße
Henri
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Seitenbreite in Excel automatisch anpassen


Schritt-für-Schritt-Anleitung

Um die Seitenbreite in Excel automatisch anzupassen, kannst du folgende Schritte ausführen:

  1. Öffne deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

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

    Sub Anpassen()
       ActiveSheet.Columns("B:B").AutoFit
       With ActiveSheet.PageSetup
           .Zoom = False
           .FitToPagesWide = 1
           .FitToPagesTall = False
       End With
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Drücke ALT + F8, wähle die Subroutine Anpassen aus und klicke auf „Ausführen“.

Damit wird die Breite der Spalte B automatisch angepasst und die gesamte Tabelle auf eine Seitenbreite skaliert.


Häufige Fehler und Lösungen

  • Fehler: Die Spalte wird nicht korrekt angepasst.

    • Lösung: Stelle sicher, dass der Code korrekt kopiert wurde und keine Syntaxfehler vorliegen.
  • Fehler: Die Tabelle wird nicht auf eine Seite skaliert.

    • Lösung: Überprüfe unter „Seitenlayout“ die Einstellungen für die Seitenbreite und -höhe.

Alternative Methoden

Es gibt auch andere Möglichkeiten, die Breite der Spalten in Excel automatisch anzupassen. Eine Möglichkeit ist die Verwendung der Tastenkombination:

  1. Markiere alle Spalten, die du anpassen möchtest.
  2. Drücke ALT + H, gefolgt von O und dann I. Dies passt die Spalten automatisch an die optimale Breite an.

Diese Methode ist besonders nützlich, wenn du schnell alle Spalten gleichzeitig anpassen möchtest.


Praktische Beispiele

Wenn du eine HTML-Tabelle in Excel importierst, kann es nötig sein, die Tabelle in der Breite automatisch anzupassen. Verwende dafür den oben genannten VBA-Code, um die Spaltenbreite optimal zu gestalten und die Seitenbreite auf eine Seite zu beschränken.


Tipps für Profis

  • Nutze die Tastenkombination Strg + A, um alle Spalten auszuwählen, bevor du die AutoFit-Funktion verwendest.
  • Experimentiere mit den Einstellungen in der Seitenlayout-Ansicht, um die besten Ergebnisse für deine spezifischen Tabellen zu erzielen.
  • Achte darauf, dass du die Seitenbreite immer im richtigen Maßstab prüfst, um sicherzustellen, dass alles gut lesbar ist.

FAQ: Häufige Fragen

1. Kann ich den VBA-Code für andere Spalten verwenden?
Ja, du kannst die Spalte im Code ändern, indem du "B:B" durch die gewünschte Spalte ersetzt, z.B. "C:C".

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen, wie Excel 2016, 2019 und Office 365, funktionieren.

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