Application.Range-Eigenschaft (Excel)

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

Syntax

Ausdruck. Bereich (Zelle1, Zelle2)

expression Eine Variable, die ein Application-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 (Doppelpunkt), den Schnittmengenoperator (Leerzeichen) oder den Vereinigungsoperator (Komma) enthalten. Es kann auch Dollarzeichen enthalten, aber sie 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.

HinwBemerkungeneise

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 es sich bei dem aktiven Blatt nicht um ein Arbeitsblatt handelt, tritt bei der Eigenschaft ein Fehler auf).

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 von Zelle A1 auf Sheet1 auf 3,14159 festgelegt.

Worksheets("Sheet1").Range("A1").Value = 3.14159

In diesem Beispiel wird in der Zelle A1 auf Sheet1 eine Formel erstellt.

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

In diesem Beispiel werden die Zellen A1:D10 von Sheet1 in einer Schleife bearbeitet. Ist der Wert einer dieser Zellen kleiner als 0,001, wird er durch 0 (Null) ersetzt.

For Each c in Worksheets("Sheet1").Range("A1:D10") 
 If c.Value < .001 Then 
 c.Value = 0 
 End If 
Next c

In diesem Beispiel wird eine Schleife für den Bereich mit dem Namen TestRange ausgeführt und die Anzahl leerer Zellen im Bereich angezeigt.

numBlanks = 0 
For Each c In Range("TestRange") 
 If c.Value = "" Then 
 numBlanks = numBlanks + 1 
 End If 
Next c 
MsgBox "There are " & numBlanks & " empty cells in this range"

In diesem Beispiel wird die Schriftstil in den Zellen A1:C5 von "Sheet1" auf kursiv festgelegt. Das Beispiel verwendet Syntax 2 der Range-Eigenschaft.

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _ 
 Font.Italic = True 

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.