Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Beispiel zum Mod-Operator

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