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

Range.Formula2-Eigenschaft

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.