Beispiel zur Columns-Eigenschaft

In diesem Beispiel wird die Schriftart der ersten Spalte (Spalte A) in Sheet1 fett formatiert.

Worksheets("Sheet1").Columns(1).Font.Bold = True

Dieses Beispiel setzt den Wert aller Zellen in der ersten Spalte im Bereich "MyRange" auf 0 (Null).

Range("myRange").Columns(1).Value = 0

Im folgenden Beispiel wird die Anzahl der Spalten in der Markierung in Sheet1 angezeigt. Sind mehrere Bereiche markiert, werden alle Bereiche in einer Schleife bearbeitet.

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Columns.Count & " columns."
Else
    For i = 1 To areaCount
        MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
    Next i
End If