habe wieder mal ein kleines Problem, dessen Lösung mit Sicherheit im Forumfundus beschrieben steht. Nach zweistündiger Suche und Ausprobieren und immer noch keinen Erfolg jedoch, muss ich mich leider an euch wenden.
Ich habe nachfolgenden Code:
Sub test()
Dim Verteilung As String
Dim zeile As Integer
zeile = 6
Verteilung = Replace(Cells(zeile, 20).Formula, Right(Cells(zeile, 20).Formula, 3), "))") & "; _
RiskCorrmat(KorrMat2011;14))"
Cells(zeile, 20).Formula = Verteilung
End Sub
Hintergrund:
es soll aus einem Excelsheet [Zelle(6,20)] eine bestehende Formel [beispielhaft: =wenn((( ........... )))] ausgelesen werden. Diese ausgelesene Formel wird dann um einen zusätzlichen Teil ergänzt [beispielhaft: =wenn((( ................));RiskCormat....)] und dann schließlich an Zelle(6,20) zurück gegeben.
Soweit so gut. Der erste Teil klappt auch. Was allerdings nicht funktioniert ist das Ersetzen der alten Formel durch die Neue [Verteilung].
Wäre prima, wenn ihr mir weiterhelfen könntet.
Danke,
Andreas