Application.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)

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.

Hinweise

Bei Verwendung ohne einen Objektqualifizierer ist diese Eigenschaft eine Verknüpfung für ActiveSheet.Range (es wird ein Bereich aus dem aktiven Blatt zurückgegeben; 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 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 ersetzt.

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

Dieses Beispiel durchläuft den Bereich mit dem Namen „TestRange“ und zeigt die Anzahl der leeren Zellen im Bereich an.

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.

Freigeben über