Spaltenbreite VBA bei Sheet 1-2
07.02.2018 16:03:40
Peer
Ich versuche seit heute Mittag mit intensiver Internet-Recherche auf eine Lösung zu kommen.
Nur komme ich nicht zu erwünschten Ergebnis.
In meinen Sheets 1 bis 2 (es sind am Ende 12) sollen die Spalten beim Laden des Workbook folgende Spalten in diesen Sheets eine Breite von:
B und C = 4
D = 7.6
E bis O = 6
P bis S = 4
T bis X = 6
Y = 4.7
Ich habe es mit einer Schleife versucht
Private Sub Workbook_Activate()
Dim I As Integer
Dim arrSH(3 To 4) As Variant
' Spaltebreite für Sheets 3 und 4 festlegen
For I = 3 To 4
arrSH(I) = I
Next
Sheets(arrSH).Column("B:B").ColumnWidth = 20
End Sub
dann mit
Application: Sheets(3).Activate
Sheets(3).Column("B:B").ColumnWidth = 20
wobei ich hier den Wert 20 genommen habe, um den Effekt besser zu sehen.Kann mir jemand helfen?
Dank im Voraus
Peer