Excelformel als VBA-Code zum Zweiten
23.01.2016 12:34:53
Pepi
Ich komme nochmals mit meinem Formelproblem (jetzt ein konkreter FAll)
Ich schreibe die Formel =WENN(ABS(A3-B3)>C$2;B3-A3;"") in Zelle C3
und starte dann das Makro
Sub SU_Formel_Kopieren1()
Dim sFo1$, sFo2$
'Variante 1 funktioniert
sFo1 = Cells(3, 3).FormulaR1C1
Range("C4:C10").FormulaR1C1 = sFo1'funktioniert
Stop
'Variante 2 gibt Fehler 1004, Anwendungs- und Objektdefinierter Fehler
sFo2 = "=IF(ABS(RC[-2]-RC[-1])>R2C,RC[-1]-RC[-2],"")" 'Wert aus dem Lokal-Fenster kopiert
Range("C4:C10").FormulaR1C1 = sFo2 'Fehlermeldung
End Sub
Obwohl optisch keine Unterschiede erkennbar sind ob ich sFor1 aus der Zelle auslese oder aus dem Lokakfenster des Makroeditors kopiere funktioniert die 2. Variante nicht.
https://www.herber.de/bbs/user/102983.xlsm
vielen Dank für eure Hilfe
Pepi