Range.Formula-Eigenschaft (Excel)

• 05.10.2019
• 2 Minuten zum Lesen
• • o
  • l
  • m
  • O
  • k
  • +3

Retourniert oder setzt einen Variant-Wert, der die implizit schneidende Formel des Objekts in A1-Stil-Notation darstellt.

Syntax

expression.Formula

Eine Variable, die ein Range-Objekt repräsentiert.

Bemerkungen

In Excel, das dynamische Arrays aktiviert, ersetzt Range.Formula2 Range.Formula. Range.Formula wird weiterhin unterstützt, um die Rückwärtskompatibilität zu gewährleisten. Eine Diskussion über dynamische Arrays und Range.Formula2 finden Sie hier.

Siehe auch

Eigenschaft Range.Formula2

Diese Eigenschaft ist für OLAP-Datenquellen nicht verfügbar.

Wenn die Zelle eine Konstante enthält, gibt diese Eigenschaft die Konstante zurück. Wenn die Zelle leer ist, gibt diese Eigenschaft eine leere Zeichenkette zurück. Wenn die Zelle eine Formel enthält, gibt die Eigenschaft Formel die Formel als Zeichenkette im gleichen Format zurück, das in der Formelleiste angezeigt werden würde (einschließlich des Gleichheitszeichens ( = )).

Wenn Sie den Wert oder die Formel einer Zelle auf ein Datum setzen, überprüft Microsoft Excel, ob die Zelle bereits mit einem der Datums- oder Zeitzahlenformate formatiert ist. Wenn nicht, ändert Excel das Zahlenformat in das standardmäßige kurze Datumszahlenformat.

Wenn es sich um einen ein- oder zweidimensionalen Bereich handelt, können Sie die Formel auf ein Visual Basic-Array der gleichen Dimensionen setzen. Ebenso können Sie die Formel in ein Visual Basic-Array setzen.

Formeln, die mit Range.Formula gesetzt werden, können implizite Überschneidungen auslösen.

Das Setzen der Formel für einen mehrzelligen Bereich füllt alle Zellen im Bereich mit der Formel.

Beispiel

Das folgende Codebeispiel setzt die Formel für Zelle A1 auf Sheet1.

Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"

Das folgende Codebeispiel setzt die Formel für Zelle A1 auf Sheet1, um das heutige Datum 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

Sie haben Fragen oder Feedback zu Office VBA oder dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hinweise, wie Sie Support erhalten und Feedback geben können.