ich habe ein Problem mit unten aufgeführtem Code. Ich möchte per VBA für mehrere Arbeitsblätter die Spalten- und Zellenformatierung vornehmen. Durch das Makro werden leider die Spalten T bis Z alle als "yyyy-mm-dd" formatiert und nicht so wie ich es mit VBA-Recorder (mit kleinen Anpassungen) aufgezeichnet habe.
Was habe ich falsch gemacht ?
Sub Formatierung()
On Error GoTo ErrExit
Application.ScreenUpdating = False ' "Bildschirmflackern" vermeiden
'Arbeitsblätter markieren
Sheets(Array( _
"Deckenspiegel", _
"Details", _
"Schnitte", _
"Ansichten", _
"Grundrisse", _
"Fassadendetails", _
"Türdetails", _
"Bodendetails", _
"Wanddetails" _
)).Select
For Each wks In ActiveWindow.SelectedSheets
'Formatierung für Spalte W
Columns("W:W").Select
Range("W2").Activate
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
'Formatierung für Spalte X
Columns("X:X").Select
Range("X2").Activate
Selection.NumberFormat = "@"
'Formatierung für Spalte Y
Columns("Y:Y").Select
Range("Y2").Activate
Selection.NumberFormat = "yyyy-mm-dd"
'Formatierung für Spalten T:Z
Columns("T:Z").Select
Range("T2").Activate
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
'Formatierung für Zellenbereich T2:Z2
Range("T2:Z2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Next
'Arbeitsblätter markieren
Sheets(Array( _
"Deckenspiegel", _
"Details", _
"Schnitte", _
"Ansichten", _
"Grundrisse", _
"Fassadendetails", _
"Türdetails", _
"Bodendetails", _
"Wanddetails" _
)).Select
'Arbeitsblatt markieren und aktivieren
Sheets("Deckenspiegel").Select
Sheets("Deckenspiegel").Activate
Range("A1").Select
ErrExit:
Application.ScreenUpdating = True 'unbedingt wieder einschalten!
End Sub
Vielen Dank im Voraus.
Liebe Grüße,
Selma