Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel mit VBA eintragen

Formel mit VBA eintragen
03.04.2018 10:40:28
Erwin
Hallo in die Runde,
In der Zelle G7 findet folgende Berechnung statt:
=WENN(B7="";"";100/((B7+B8)/B7))
Der Nutzer darf diesen Vorschlagswert, wenn er möchte, überschreiben.
Folge ist, dass die Formel weg ist.
Über einen Button und VBA (geht ja nicht anders) möchte ich die Formel in G7 wieder eintragen können.
Der Makrorekorder hat folgendes aufgezeichnet:
Sub FormelWiederherstellen()
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-5]="""","""",100*((RC[-5]+R[1]C[-5])/RC[-5]))"
End Sub
Ist das OK oder muss ich FormulaLocal benutzen, wenn ja wie?
Danke - Erwin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel mit VBA eintragen
03.04.2018 10:47:28
Werner
Hallo Erwin,
warum sollte das nicht ok sein? Du solltest lediglich auf das Select verzichten und die Zelle direkt ansprechen.
Sub FormelWiederherstellen()
Range("G7").FormulaR1C1 = _
"=IF(RC[-5]="""","""",100*((RC[-5]+R[1]C[-5])/RC[-5]))"
End Sub
Wenn du FormulaLocal verwenden willst (kannst du natürlich auch), dann mußt du die deutsche Schreibweise der Formel verwenden.
Public Sub Formel_FormulaLocal()
Range("G7").FormulaLocal = "=WENN(B7="""";"""";100*((B7+B8)/B7))"
End Sub
Gruß Werner
AW: Formel mit VBA eintragen - Danke
03.04.2018 10:50:33
Erwin
Hallo Werner,
danke für's ausbessern und die 2. Version, das ging ja superschnell.
Grüße - Erwin
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
03.04.2018 10:54:28
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige