jede zweite Spaltenbreite ändern ?!?

[Calafati]

Hallo zusammen und allen ein FROHES UND GESUNDES NEUES JAHR 2017 mit vielen neuen Herausforderungen.

Gleich die erste davon habe ich schon im Gepäck, vermutlich Marke "blutiger Anfänger" :17:

Folgendes: ich habe mir seinerzeit die Mühe gemacht und viele Spalten in der Breite her "von Hand formatiert" (hoffentlich war das nicht überflüssig :19: ) Das Schema ist immer das gleiche: die ungeraden Spalten haben eine Breite von X, die geraden von Y.

Jetzt muß ich die Breite der geraden Spalten ändern, aber wie markiere ich die?!? Muß ich das von Hand? Ist ungefähr ein gefühlter Kilometer nach rechts... Oder gibt es da eine Hilfe, mit der ich nur die geraden Nummern automatisch markieren kann?

Besten Dank vorab für Eure Unterstützung und VIELE GRÜSSE!!!

Klaus

[Crazy Tom]

Hallo

hier mal eine Möglichkeit für die ersten 50 Spalten

Code:

Sub test()
   Dim i As Long
   Application.ScreenUpdating = False
   For i = 2 To 50 Step 2
       Columns(i).ColumnWidth = 20
   Next
   Application.ScreenUpdating = True
End Sub

MfG Tom

[Calafati]

Hi Tom,
besten Dank, hat funktioniert!!!
Viele Grüße
Klaus