Range.Cells-Eigenschaft (Excel)

  • Artikel

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

Hinweis

Haben Sie Interesse an der Entwicklung von Lösungen, mit denen die Funktionen von Office über mehrere Plattformen erweitert werden können? Schauen Sie sich das neue Office-Add-In-Modell an. Office-Add-Ins haben im Vergleich zu VSTO-Add-Ins und -Lösungen einen geringen Platzbedarf. Sie können sie mit fast jeder Web-Programmiertechnologie erstellen, z. B. HTML5, JavaScript, CSS3 und XML.

Syntax

Ausdruck.Zellen

Ausdruck Eine Variable, die ein Range-Objekt darstellt.

Bemerkungen

Der Rückgabewert ist ein Range-Objekt, das aus einzelnen Zellen besteht. Dies ermöglicht es, die Version des Item-Objekts mit zwei Parametern zu verwenden und For Each-Schleifen über einzelne Zellen laufen zu lassen.

Da das Standardelement von Range Anrufe mit Parametern an die Item-Eigenschaft weiterleitet, können Sie den Zeilen- und Spaltenindex unmittelbar nach dem Schlüsselwort Cells anstelle eines expliziten Aufrufs von Item angeben.

Die Verwendung von Cells ohne einen Objektbezeichner hat die gleiche Funktion wie ActiveSheet.Cells.

Beispiel

In diesem Beispiel wird der Schriftschnitt für die Zellen B2: D6 in Blatt1 der aktiven Arbeitsmappe auf "Kursiv" festgelegt.

With Worksheets("Sheet1").Range("B2:Z100") 
   .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True
End With

Dieses Beispiel durchsucht die Spalte myRange, die Daten enthält. Wenn eine Zelle denselben Wert enthält wie die Zelle unmittelbar davor, wird die Adresse der Zelle mit den Duplikaten angezeigt.

Set r = Range("myRange") 
For n = 2 To r.Rows.Count 
    If r.Cells(n-1, 1) = r.Cells(n, 1) Then 
        MsgBox "Duplicate data in " & r.Cells(n, 1).Address 
    End If 
Next

In diesem Beispiel wird gezeigt, wie Cells das Verhalten des Item-Elements ändert.

Public Sub PrintRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:Z100").Columns
   
   Debug.Print columnsRange.Item(2).Address         'Prints "$C$2:$C$100" 
   Debug.Print columnsRange.Cells.Item(2).Address   'Prints "$C$2" 
   Debug.Print columnsRange.Cells.Item(2,1).Address 'Prints "$B$3"   
End Sub

In diesem Beispiel wird gezeigt, wie Cells das Enumerationsverhalten ändert.

Public Sub PrintAllRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:C3").Columns
   
   Dim columnRange As Excel.Range
   For Each columnRange In columnsRange
      Debug.Print columnRange.Address   'Prints "$B$2:$B$3", "$C$2:$C$3"
   Next
   
   Dim cell As Excel.Range
   For Each cell In columnsRange.Cells
      Debug.Print cell.Address          'Prints "$B$2", "$C$2", "$B$3", "$C$3"
   Next  
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.