Formel per Button (VBA) in Zelle schreiben

Computer: Software & Programmierung Office Software
1

Hallo!

Ich möchte per Knopfdruck einer Zelle folgenden Wert/Formel zuweisen:

=WENN(A1=0;0,001;A1)

Hab das so versucht …

Private Sub CommandButton1_Click()
Cells(1, 4).Value = „=WENN(A1=0;0,001;A1)“
End Sub

Dabei bekomm ich aber die Fehlermeldung
"Laufzeitfehler ‚1004‘

Anwendungs- oder objektdefinierter Fehler"

Sobald ich das = Zeichen weglasse, würde er es reinschreiben, aber dann ist es ja keine Formel mehr :frowning:

Kann mir das irgendjemand erklären bitte.

Danke,
Andi

2

Hab das so versucht …

versuchs so…

Private Sub CommandButton1_Click()
’ Cells(1, 4).Value = „=WENN(A1=0;0,001;A1)“

Cells(1, 4).FormulaR1C1 = „=IF(R1C1=0,0.001,R1C1)“

End Sub

Sobald ich das = Zeichen weglasse, würde er es reinschreiben,
aber dann ist es ja keine Formel mehr :frowning:

Kann mir das irgendjemand erklären bitte.

value ist „Wert“
der Wert ist aber wiederum eine Formel in Deinem Fall und das darf so ned sein…
Es bräuchte wohl ein Hochkomma vor dem „=“ damit es funktioniert und dann ist es immernoch… Ein Wert - keine Formel…

Grüße
Munich

PS: Das Resultat ist leider ein $A$1 - hoffe, dass das nichts ausmacht…?
Ansonsten musst Du halt in dem Stil arbeiten:
ActiveCell.FormulaR1C1 = „=IF(R[-3]C[-4]=0,0.001,R[-3]C[-4])“
wobei -3 die Zeilen sind und -4 die Spalten. Die Formel steht bei mir in E4

3

Dankesehr!

So funktioniert’s einwandfrei :smile:

*jubelfreu*