Worksheet.Cells-Eigenschaft (Excel)

Gibt ein Range-Objekt zurück, das alle (nicht nur die aktuell verwendeten) Zellen im Arbeitsblatt darstellt.

Syntax

Ausdruck.Cells

Ausdruck: Eine Variable, die ein Worksheet-Objekt darstellt.

Hinweise

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.

Wenn Sie diese Eigenschaft ohne einen Objektbezeichner verwenden, wird ein Range-Objekt zurückgegeben, das alle Zellen im aktiven Arbeitsblatt darstellt.

Beispiel

In diesem Beispiel wird der Schriftgrad für die Zelle C5 auf Sheet1 der aktiven Arbeitsmappe auf 14 Punkte festgelegt.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

In diesem Beispiel wird die Formel in der ersten Zelle auf Sheet1 der aktiven Arbeitsmappe gelöscht.

Worksheets("Sheet1").Cells(1).ClearContents

In diesem Beispiel werden die Schriftart und die Schriftgröße für jede Zelle auf „Sheet1“ auf Arial auf 8 Punkte festgelegt.

With Worksheets("Sheet1").Cells.Font 
    .Name = "Arial" 
    .Size = 8 
End With

In diesem Beispiel wird eine Sortierung zwischen aufsteigender und absteigender Reihenfolge umgeschaltet, wenn Sie auf eine beliebige Zelle im Datenbereich klicken. Die Daten werden anhand der Spalte der Zelle sortiert, auf die doppelgeklickt wird.

Option Explicit
Public blnToggle As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LastColumn As Long, keyColumn As Long, LastRow As Long
    Dim SortRange As Range
    LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    keyColumn = Target.Column
    
    If keyColumn <= LastColumn Then
    
        Application.ScreenUpdating = False
        Cancel = True
        LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
        Set SortRange = Target.CurrentRegion
        
        blnToggle = Not blnToggle
        If blnToggle = True Then
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
        Else
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
        End If
    
        Set SortRange = Nothing
        Application.ScreenUpdating = True
        
    End If
End Sub

In diesem Beispiel wird Spalte C des aktiven Blatts durchsucht, und für jede Zelle mit einem Kommentar wird der Kommentartext in Spalte D eingefügt und aus Spalte C gelöscht.

Public Sub SplitCommentsOnActiveSheet()
   'Set up your variables
   Dim cmt As Comment
   Dim rowIndex As Integer
   
   'Go through all the cells in Column C, and check to see if the cell has a comment.
   For rowIndex = 1 To WorksheetFunction.CountA(Columns(3))
      Set cmt = Cells(rowIndex, 3).Comment
      If Not cmt Is Nothing Then
      
         'If there is a comment, paste the comment text into column D and delete the original comment.
         Cells(rowIndex, 4) = Cells(rowIndex, 3).Comment.Text
         Cells(rowIndex, 3).Comment.Delete
      End If
   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.