In diesem Beispiel wird die Spaltenbreite jeder zweiten Spalte in Sheet1 auf 4 Punkt gesetzt.
For Each col In Worksheets("Sheet1").Columns If col.Column Mod 2 = 0 Then col.ColumnWidth = 4 End If Next col
In diesem Beispiel wird die Zeilenhöhe jeder zweiten Zeile in Sheet1 auf 4 Punkt gesetzt.
For Each rw In Worksheets("Sheet1").Rows If rw.Row Mod 2 = 0 Then rw.RowHeight = 4 End If Next rw
In diesem Beispiel wird jedes zweite Element im ersten Listenfeld in Sheet1 markiert.
Dim items() As Boolean Set lbox = Worksheets("Sheet1").ListBoxes(1) ReDim items(1 To lbox.ListCount) For i = 1 To lbox.ListCount If i Mod 2 = 1 Then items(i) = True Else items(i) = False End If Next lbox.MultiSelect = xlExtended lbox.Selected = items