Formel-Abfrage Direktbereich muss ergänzt werden
18.07.2016 18:02:25
Peter
Ich habe in einer Zelle folgenden Formeleintrag:
=LINKS(WECHSELN("x"&WECHSELN($P346;"Projekt: ";"");"/"&"*";"");SUCHEN("/";WECHSELN(WECHSELN($P346; "Projekt:";"");"/"&"*";""))-1)
Die Formel liefert das gewünschte Resultat.
Nun möchte ich die Formel mittels VBA in der Zelle einsetzen.
Wenn ich die Formel im Direktbereich abfrage, erhalte ich folgenden Code:
?activecell.FormulaR1C1
=LEFT(SUBSTITUTE("x"&SUBSTITUTE(RC16,"Projekt: ",""),"/"&"*","") ,SEARCH("/",SUBSTITUTE(SUBSTITUTE(RC16,"Projekt:",""),"/"&"*",""))-1)
Um den Code verwenden zu können, muss ich z.B. "" verdoppeln ( = """")
Aber das reicht noch nicht. Wie muss der Code noch angepasst werden, dass er dann verwendet werden kann? (wo kann ich nachlesen, was da für eine Logik dahinter steht?)
With Range("A3")
..
End With
Danke und Gruss, Peter