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