Range.Range-Eigenschaft (Excel)

Artikel
10/16/2024

Gibt ein Range-Objekt zurück, das eine Zelle oder einen Zellbereich darstellt.

Syntax

expression.Range (Cell1, Cell2)

Ausdruck Eine Variable, die ein Range-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Cell1	Erforderlich	Variant	Der Name des Bereichs. Dieser muss ein A1-Bezug in der Sprache des Makros sein. Er kann den Bereichsoperator (ein Doppelpunkt), den Schnittmengenoperator (ein Leerzeichen) oder den Union-Operator (ein Komma) umfassen. Er kann auch Dollarzeichen enthalten, aber diese werden ignoriert. Verwenden Sie einen lokal definierten Namen in einem beliebigen Teil des Bereichs. Bei diesem Namen wird davon ausgegangen, dass er in der Sprache des Makros vorliegt.
Cell2	Optional	Variant	Die Zellen in der linken oberen und rechten unteren Ecke des Bereichs. Kann ein Range-Objekt sein, das eine einzelne Zelle (oder eine gesamte Spalte oder eine gesamte Zeile) enthält, oder kann eine Zeichenfolge sein, die eine einzelne Zelle in der Sprache des Makros bezeichnet.

Hinweise

Wenn diese Eigenschaft ohne Objektqualifizierer verwendet wird, ist sie eine Verknüpfung für ActiveSheet.Range (sie gibt einen Bereich aus dem aktiven Blatt zurück; wenn das aktive Blatt kein Arbeitsblatt ist, schlägt die Eigenschaft fehl).

Bei Anwendung auf ein Range-Objekt ist die Eigenschaft relativ zum Range-Objekt. Wenn die Auswahl beispielsweise Zelle C3 ist, gibt Selection.Range("B1") die Zelle D3 zurück, da sie relativ zum Range-Objekt ist, das von der Selection-Eigenschaft zurückgegeben wird. Andererseits gibt der Code ActiveSheet.Range("B1") immer die Zelle B1 zurück.

Beispiel

In diesem Beispiel wird der Wert der linken oberen Zelle des Bereichs B2:C4 in Sheet1 der aktiven Arbeitsmappe, d. h. der zelle B2, auf 3,14159 festgelegt.

With Worksheets("Sheet1").Range("B2:C4")
   .Range("A1").Value = 3.14159
End With

In diesem Beispiel werden die vier Zellen in der oberen linken Ecke des Bereichs B2:Z22 auf Sheet1 der aktiven Arbeitsmappe in Schleifen ausgeführt. Ist der Wert einer dieser Zellen kleiner als 0,001, wird er durch 0 ersetzt.

Public Sub TruncateSmallValues()
   Dim exampleRange As Excel.Range
   Set exampleRange = Worksheets("Sheet1").Range("B2:Z22") 

   Dim cell As Excel.Range
   For Each cell in exampleRange.Range("A1:B2") 
      If cell.Value < .001 Then 
         cell.Value = 0 
      End If 
   Next cell
End Sub

In diesem Beispiel wird der Schriftschnitt in den Zellen B2:D6 auf Sheet1 der aktiven Arbeitsmappe kursiv festgelegt. Das Beispiel verwendet Syntax 2 der Range-Eigenschaft.

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

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.

Freigeben über