Range.Formula-Eigenschaft (Excel)
Gibt einen Variant-Wert zurück, der die implizit überschneidende Formel des Objekts in A1-Schreibweise darstellt, oder legt diesen Wert fest.
Syntax
Ausdruck. Formel
Ausdruck Eine Variable, die ein Range-Objekt darstellt.
Hinweise
In Excel mit aktivierten dynamischen Arrays ersetzt Range.Formula2 Range.Formula. Range.Formula wird weiterhin unterstützt, um die Backkompatibilität aufrechtzuerhalten. Eine Erläuterung zu Dynamic Arrays und Range.Formula2 finden Sie im Excel VBA-Dokumentationsthema Formel und Formel2.
Siehe auch
Diese Eigenschaft ist für OLAP-Datenquellen nicht verfügbar.
Wenn die Zelle eine Konstante enthält, gibt die Eigenschaft die Konstante zurück. Wenn die Zelle leer ist, gibt die Eigenschaft eine leere Zeichenfolge zurück. Wenn die Zelle eine Formel enthält, gibt die Formula-Eigenschaft die Formel als Zeichenfolge im gleichen Format zurück, das in der Bearbeitungsleiste angezeigt wird (einschließlich des Gleichheitszeichens ( = )).
Wenn Sie den Wert oder die Formel einer Zelle auf ein Datum setzen, prüft Microsoft Excel, ob die Zelle bereits in einem der Datums- oder Zeitformate formatiert ist. Andernfalls ändert Excel das Zahlenformat in das Standardformat für kurze Datumszahlen.
Wenn der Bereich einen ein- oder zweidimensionalen Bereich darstellt, können Sie für die Formel eine Visual Basic-Matrix mit derselben Dimension festlegen. Ebenso können Sie die Formel auch in eine Visual Basic-Matrix einfügen.
Formeln, die mit Range.Formula festgelegt wurden, können implizite Schnittmengen auslösen.
Beim Festlegen der Formel für einen Bereich mit mehreren Zellen wird die Formel in alle Zellen des Bereichs eingetragen.
Beispiel
Im folgenden Beispiel wird die Formel für Zelle A1 in "Sheet1" gesetzt.
Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"
Im folgenden Beispiel wird die Formel für Zelle A1 in „Sheet1" gesetzt, um das Datum des aktuellen Tages anzuzeigen.
Sub InsertTodaysDate()
' This macro will put today's date in cell A1 on Sheet1
Sheets("Sheet1").Select
Range("A1").Select
Selection.Formula = "=text(now(),""mmm dd yyyy"")"
Selection.Columns.AutoFit
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.