in VBA 4 Hochkommas """" übergeben
16.10.2019 14:48:20
Nobbi
ich möchte in einem Makro folgendes erledigen:
das soll in eine Zelle geschrieben werden.
=WENN(D7<>"";WENN(UND(D7<C7;D7<>"");"Achtung falsche Eingabe!";((D7-C7)*60*24)-E7);"")
das soll in das Modul geschrieben werden:
~f~ ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]<>"""",IF(AND(RC[-2]<RC[-3],RC[-2]<>""""),""Achtung falsche Eingabe!"",((RC[-2]-RC[-3])*60*24)-RC[-1]),"""")"
das sind meine Versuche das Modul zu ändern.
~f~With ActiveWorkbook.VBProject.VBComponents("Start").CodeModule
.DeleteLines 1310
.InsertLines 1310, " ActiveCell.FormulaR1C1 = _"
.InsertLines 1311, " ""=IF(RC[-2]<>"""""",IF(AND(RC[-2]<RC[-3],RC[-2]<>""""""),""""Achtung falsche Eingabe!"""",((RC[-2]-RC[-3])*60*24)-RC[-1]),"""""")"""
' '""=IF(RC[-2]<>"""",IF(AND(RC[-2]<RC[-3],RC[-2]<>""""),""""Achtung falsche Eingabe!"""",((RC[-2]-RC[-3])*60*24)-RC[-1]),"""")"""
End With
Ich kann keine 4 """" schreiben