VBA FormulaR1C1 Wert ausgeben
09.04.2022 17:19:19
SuMMi
ich habe mir versucht VBA per Makrorekorder und Google selbst bei zu bringen.
Das bis jetzt auch gut geklappt.
Jetzt habe ich noch eine letzte Mission und an der beiße ich mir die Zähne aus.
Ich möchte mir per Makro folgenden Hyperlink in die Arbeitsmappe einfügen:
Selection.FormulaR1C1 = _
"=HYPERLINK(""mailto:" & Cells(1, 2).Value & "?Subject=Mein Text ""&LEFT(RC9,FIND("":"",RC[-6])-1) & "" mein Text""&RC4 &"" mein Text "" &TEXT(RC6,""TT.MM"") & "" meint Text"",""meint Text"")"
Dieser Funktioniert auch, aber im zweiten Schritt muss ich den letzten Abschnitt durch ,""meint Text"")" einen Zellinhalt ersetzen
Diese wollte ich so lösen (Spalte O)
Selection.FormulaR1C1 = _
"=HYPERLINK(""mailto:" & Range("B1").Value & "?Subject=Meint Text ""&LEFT(RC9,FIND("":"",RC[-6])-1) & "" mein Text""&RC4 &"" Meint Text "" &TEXT(RC6,""TT.MM"") & "" Mein Text"",Cells(2,2).Value)"
Er fügt sie mir zwar ein, aber beim Cells(2,2).Value erhalte ich anstatt den Zellinhalt @Cells(2;2).Value)
Was macht die Formel ?Sie bezieht sich aus Zelle B1 die Emailadresse, danach Kommt mein Text (Left+find= text au Zelle abschneiden bei :, bei RC4 werden Zahlen eingefügt und bei RC6 ein Datum.
Was muss ich anpassen damit er mir nicht Cells(2;2).Value) sondern den Zellinhalt angibt?
Ich habe inzwischen unzähliges versucht, aber ich drehe mich im Kreis.