Clever-Excel-Forum

Normale Version: jede zweite Spaltenbreite ändern ?!?
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
Hi Tom,
besten Dank, hat funktioniert!!! Blush
Viele Grüße
Klaus