Range.Columns-Eigenschaft (Excel)

Gibt ein Range-Objekt zurück, das die Spalten im angegebenen Bereich darstellt.

Syntax

Ausdruck. Spalten

Ausdruck Eine Variable, die ein Range-Objekt darstellt.

Bemerkungen

Um eine einzelne Spalte zurückzugeben, verwenden Sie die Item-Eigenschaft , oder schließen Sie einen Index in Klammern ein. Beispielsweise geben sowohl als Selection.Columns.Item(1) auch Selection.Columns(1) die erste Spalte der Auswahl zurück.

Wenn diese Eigenschaft auf ein Range-Objekt angewendet wird, bei dem es sich um eine Mehrfachbereichsauswahl handelt, gibt diese Eigenschaft nur Spalten aus dem ersten Bereich des Bereichs zurück. Wenn das Range-Objekt beispielsweise über zwei Bereiche verfügt – A1:B2 und C3:D4 –Selection.Columns.Count gibt 2 und nicht 4 zurück. To use this property on a range that may contain a multiple-area selection, test Areas.Count to determine whether the range contains more than one area. Wenn dies der Fall ist, durchlaufen Sie jeden Abschnitt in dem Bereich.

Der zurückgegebene Bereich befindet sich möglicherweise außerhalb des angegebenen Bereichs. Range("A1:B2").Columns(5).Select gibt die Zellen E1:E2 zurück.

Wenn ein Buchstabe als Index verwendet wird, entspricht er einer Zahl. Range("B1:C10").Columns("B").Select gibt z. B. die Zellen C1:C10 und nicht die Zellen B1:B10 zurück. Im Beispiel entspricht "B" 2.

Die Verwendung der Columns-Eigenschaft ohne Objektqualifizierer entspricht der Verwendung von ActiveSheet.Columns. Weitere Informationen finden Sie unter der Worksheet.Columns-Eigenschaft .

Beispiel

In diesem Beispiel wird der Wert jeder Zelle in Spalte 1 im Bereich myRange auf 0 (null) festgelegt.

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.

Public Sub ShowNumberOfColumnsInSheet1Selection
   Worksheets("Sheet1").Activate 
   
   Dim selectedRange As Excel.Range
   Set selectedRange = Selection
   
   Dim areaCount As Long
   areaCount = Selection.Areas.Count 
   
   If areaCount <= 1 Then 
      MsgBox "The selection contains " & _ 
             Selection.Columns.Count & " columns." 
   Else 
      Dim areaIndex As Long
      areaIndex = 1 
      For Each area In Selection.Areas 
         MsgBox "Area " & areaIndex & " of the selection contains " & _ 
                area.Columns.Count & " columns." 
         areaIndex = areaIndex + 1 
      Next 
   End If
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.