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