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.