Range.Value-Eigenschaft (Excel)

Gibt einen Variant-Wert zurück, der den Wert des angegebenen Bereichs darstellt, oder legt ihn fest.

Syntax

Ausdruck. Wert (RangeValueDataType)

Ausdruck Eine Variable, die ein Range-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
RangeValueDataType	Optional	Variant	Der Bereichswert-Datentyp. Dies kann eine XlRangeValueDataType-Konstante sein.

HinwBemerkungeneise

Beim Festlegen eines Zellbereichs mit den Inhalten einer XML-Tabellenkalkulationsdatei werden nur die Werte des ersten Blatts in der Arbeitsmappe verwendet. Es ist nicht möglich, einen nicht zusammenhängenden Zellbereich im XML-Tabellenkalkulationsformat festzulegen, und es ist nicht möglich, dergleichen abzurufen.

Das Standardmember von Range leitet Aufrufe ohne Parameter an Value weiter. someRange = someOtherRange Daher entspricht someRange.Value = someOtherRange.Value.

Für Bereiche, deren erster Bereich mehr als eine Zelle enthält, gibt Value einen Variant-Wert zurück, der ein zweidimensionales Array der Werte in den einzelnen Zellen des ersten Bereichs enthält.

Wenn Sie der Value-Eigenschaft ein 2-Dim-Array zuweisen, werden die Werte in einem Vorgang in den Bereich kopiert. Wenn der Zielbereich größer als das Array ist, erhalten die verbleibenden Zellen einen Fehlerwert.

Das Zuweisen eines Arrays zu einem Bereich mit mehreren Bereichen wird nicht ordnungsgemäß unterstützt und sollte vermieden werden.

Beispiel

In diesem Beispiel wird der Wert der Zelle A1 in Sheet1 der aktiven Arbeitsmappe auf 3,14159 festgelegt.

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

In diesem Beispiel wird eine Schleife für die Zellen A1:D10 in Sheet1 der aktiven Arbeitsmappe ausgeführt. Wenn eine der Zellen einen Wert kleiner als 0,001 aufweist, ersetzt der Code den Wert durch 0 (null).

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

In diesem Beispiel werden die Werte im Bereich A1:CC5000 in Sheet1 durchlaufen. Wenn einer der Werte kleiner als 0,001 ist, ersetzt der Code den Wert durch 0 (null). Schließlich werden die Werte in den ursprünglichen Bereich kopiert.

Public Sub TruncateSmallValuesInDataArea()
   Dim dataArea As Excel.Range
   Set dataArea = ThisworkBook.Worksheets("Sheet1").Range("A1:CC5000")
   
   Dim valuesArray() As Variant
   valuesArray = dataArea.Value
   
   Dim rowIndex As Long
   Dim columnIndex As Long
   For rowIndex = LBound(valuesArray, 1) To UBound(valuesArray, 1)
      For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)
	     If valuesArray(rowIndex, columnIndex) < 0.001 Then
		    valuesArray(rowIndex, columnIndex) = 0
		 End If 
	  Next
   Next
   
   dataArea.Value = valuesArray
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.