Spaltenbreite ändern auf Arbeitsblättern

Forumthread: Spaltenbreite ändern auf Arbeitsblättern

13.01.2021 10:38:43

Robert

Hallo ihr lieben Exeler.
Bräuchtew mal wieder etwas Hilfe von Euch. Ich habe mir ein Makro gebastelt mit welchen ich die Spaltenbreite verändern möchte. Funktioniert auch gut. Aber die Tabellenblätter muss ich jedes einzeln aufführen. Wie muss ich das schreiben um Exel dazu zu bringen alle Blätter im Kopf gleich zu bennenen so das man erkennt das es auf allen Tabellenblättern stattfinden soll, und somit bloss einmal die Zeilen im Makro geschrieben werden müssen.

Sub Spaltenbreite()
With Sheets("Februar")
.Rows("50:50").RowHeight = 63.75
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
.Columns("I:I").ColumnWidth = 35.14
.Columns("J:J").ColumnWidth = 14.71
.Columns("K:K").ColumnWidth = 13
.Columns("L:L").ColumnWidth = 12.86
.Columns("M:M").ColumnWidth = 30
End With
With Sheets("März")
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
.Columns("I:I").ColumnWidth = 35.14
.Columns("J:J").ColumnWidth = 14.71
.Columns("K:K").ColumnWidth = 13
.Columns("L:L").ColumnWidth = 12.86
.Columns("M:M").ColumnWidth = 30
End With
With Sheets("April")
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
.Columns("I:I").ColumnWidth = 35.14
.Columns("J:J").ColumnWidth = 14.71
.Columns("K:K").ColumnWidth = 13
.Columns("L:L").ColumnWidth = 12.86
.Columns("M:M").ColumnWidth = 30
End With
End Sub

Die Daten sind auf jeden Tabellenblatt gleich.
Vielen Dank für Eure Mühe.
LG Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spaltenbreite ändern auf Arbeitsblättern

13.01.2021 10:44:18

Daniel

Hi
Markiere das erste Tabellenblatt und dann mit gehaltener Shift-Taste das letzte Tabellenblatt.
Ändere dann die Spaltenbreite.
Wirkt sich die Änderung auf alle markierten Blätter aus?
Wenn ja, zeichne das mit dem Recorder auf und schau dir den Code an.
Dann siehst du, wie du Aktionen auf mehrere Blätter gleichzeitig anwenden kannst.
Gruß Daniel

AW: Spaltenbreite ändern auf Arbeitsblättern

13.01.2021 10:45:15

ChrisL

Hi Robert
Gibt es eine Regelmässigkeit (z.B. nächste 3 Monate ab aktuellem Datum oder ein ganzes Jahr) oder bestimmst du die Monate manuell?
Hier mal eine einfach Variante:

Sub t()
Call Spaltenbreite("Februar")
Call Spaltenbreite("März")
Call Spaltenbreite("April")
End Sub

Sub Spaltenbreite(strMonat As String)
With Sheets(strMonat)
.Rows("50:50").RowHeight = 63.75
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
.Columns("I:I").ColumnWidth = 35.14
.Columns("J:J").ColumnWidth = 14.71
.Columns("K:K").ColumnWidth = 13
.Columns("L:L").ColumnWidth = 12.86
.Columns("M:M").ColumnWidth = 30
End With
End Sub

cu
Chris

AW: Spaltenbreite ändern auf Arbeitsblättern

13.01.2021 10:48:05

worti

Hallo Robert,
mit einer kleinen Schleife:


Sub Alle_Blätter()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Rows("50:50").RowHeight = 63.75
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
'etc.
End With
Next ws
End Sub

Gruß Worti

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Spaltenbreite in Excel auf mehreren Arbeitsblättern gleichzeitig zu ändern, kannst du folgende Schritte befolgen:

Alle Blätter auswählen:
- Halte die Shift-Taste gedrückt, während du auf das erste und das letzte Blatt klickst, um alle Blätter im Bereich auszuwählen.
Spaltenbreite ändern:
- Klicke mit der rechten Maustaste auf eine der ausgewählten Spaltenüberschriften und wähle "Spaltenbreite".
- Gib die gewünschte Breite ein und bestätige mit "OK".

Alternativ mit VBA:

Du kannst auch ein VBA-Makro verwenden, um die Spaltenbreite auf allen Blättern gleich zu ändern. Hier ist ein einfaches Beispiel:

Sub Alle_Blätter()
 Dim ws As Worksheet
 For Each ws In ThisWorkbook.Worksheets
     With ws
         .Rows("50:50").RowHeight = 63.75
         .Columns("A:A").ColumnWidth = 4
         .Columns("B:H").ColumnWidth = 1.86
         ' Weitere Anpassungen hier
     End With
 Next ws
End Sub

Häufige Fehler und Lösungen

Änderungen wirken sich nicht auf alle Blätter aus: Stelle sicher, dass du die Blätter richtig ausgewählt hast. Wenn nur ein Blatt aktiv ist, wird die Änderung nur dort vorgenommen.
VBA Fehler: Wenn du beim Ausführen deines Makros einen Fehler erhältst, überprüfe den Namen der Arbeitsblätter. Sie müssen genau mit den Namen in deinem Code übereinstimmen.

Alternative Methoden

Tastenkombinationen:
- Um die Spaltenbreite automatisch anpassen zu lassen, kannst du die Tastenkombination Alt + H, gefolgt von O und dann I verwenden.
- Für die Spaltenbreite an Text anpassen drücke Alt + H, dann O, gefolgt von A.
Spaltenbreite auf andere Blätter übertragen:
- Du kannst die Spaltenbreite einer bestimmten Spalte kopieren und auf ein anderes Blatt übertragen, indem du die Spalte kopierst und dann mit Rechtsklick -> Inhalte einfügen -> Spaltenbreite auswählst.

Praktische Beispiele

Beispiel 1: Um die Spaltenbreite für alle Blätter zu übernehmen:

Sub SpaltenbreiteÜbertragen()
  Dim ws As Worksheet
  Dim firstSheetWidth As Double

  firstSheetWidth = Sheets(1).Columns("A:A").ColumnWidth

  For Each ws In ThisWorkbook.Worksheets
      ws.Columns("A:A").ColumnWidth = firstSheetWidth
  Next ws
End Sub

Beispiel 2: Automatisches Anpassen der Spaltenbreite an den Inhalt:

Sub AutomatischAnpassen()
  Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets
      ws.Columns.AutoFit
  Next ws
End Sub

Tipps für Profis

Nutze die Tastenkombinationen, um schneller durch die Anpassungen zu navigieren. Beispielsweise kannst du den Shortcut Alt + H, O, W verwenden, um die Spaltenbreite direkt zu ändern.
Wenn du regelmäßig die Spaltenbreite anpassen musst, erwäge, ein Makro zu erstellen, das die wiederkehrenden Aufgaben automatisiert.
Bei der Verwendung von VBA kannst du auch die Kopfzeile anpassen, indem du With ws.PageSetup verwendest, um die Druckeinstellungen für alle Blätter gleichzeitig zu ändern.

FAQ: Häufige Fragen

1. Wie kann ich die Spaltenbreite auf allen Blättern gleich einstellen?
Du kannst alle Blätter auswählen und dann eine Spaltenbreite festlegen oder ein VBA-Makro verwenden, um die Spaltenbreite für jedes Blatt im Workbook anzupassen.

2. Gibt es einen Shortcut, um die Spaltenbreite schnell zu ändern?
Ja, du kannst Alt + H, gefolgt von O und W verwenden, um das Dialogfeld für die Spaltenbreite direkt zu öffnen und eine Breite einzugeben.

Beliebteste Forumthreads (12 Monate)

Spaltenbreite ändern auf Arbeitsblättern

Forumthread: Spaltenbreite ändern auf Arbeitsblättern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Spaltenbreite auf Arbeitsblättern ändern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Spaltenbreite ändern auf Arbeitsblättern

Forumthread: Spaltenbreite ändern auf Arbeitsblättern

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Spaltenbreite auf Arbeitsblättern ändern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread