Ich möchte in allen eingeblendeten Tabellen folgende Aktion ausführen:
- Spalten $E:$AD Spaltenbreite 2.75 hinterlegen
- Zeile $1:$1 Zeilenhöhe 150 hinterlegen
- Zelle A1 aktiviert
Diesen Code habe ich erstellt funktioniert leider nicht. Was mache ich falsch?
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
Columns("$E:$AD").ColumnWidth = 2.75
Rows("1:1").RowHeight = 255
End With
ws.cells(1,1).select
Next
Gruss
Sam