ich versuche gerade o.g. Aufgabe zu lösen, leider läßt sich die benutzerdefinierte Formel nicht dem Range Objekt AnlageVerträge(1,X) zuweisen.
Kann mir einer sagen, warun das nicht funktioniert und 2. wie es funktionieren würde?
Private Sub EingabeFürFonds(Art As String, Zeilenname As Range, Formelnummer2 As String)
Dim X As Integer
Dim Formel As String
Set AnlageVerträge = Zeilenname
'AnlageVerträge.Text
For X = 1 To Eingabespalten
With AnlageVerträge(1, X)
.Font.Size = 12
Select Case X
Case Is = 2
.formula = "=FondsParameter(FondsNr" & Formelnummer2 & ";9)"
Exit Sub
end select
next X
End Sub
Gruß Berthold