Seit langen suche ich für folgendes Problem eine Lösung:
Wie kann kann das Ergebnis einer Formel, direkt als Wert in eine Zelle eingetragen werden?
Hier ein Beispiel:
Mit
Figurenlänge2 = "=COUNT(RC[1]:RC[150])"
wird eine Zahl eingetragen, danach und danch mit
Figurenlänge2 = Figurenlänge2.Value
in einen Wert umgewandelt.
Diese beiden Codezeilen hätte ich gern als eine eigenständige VBA Anweisung.
Ich muss immer wieder auf diese ungüstige Lösung zurück greifen, das deprimiert.
Dabei bin ich mir sicher, das es dafür eine bessere Lösung gibt.
Schön wenn mir jemand behilflich sein könnte.
Hier der Code für mein Modul, mit drei Pflegefällen:
Sub Die_Max_Figurenlänge()
Dim Figurenlänge1 As Range
Dim Figurenlänge2 As Range
Set Figurenlänge1 = Sheets("Berechnen").Range("I65536").End(xlUp).Offset(0, 1)
Set Figurenlänge2 = Sheets("Berechnen").Range(Figurenlänge1, "J3")
Figurenlänge2 = "=COUNT(RC[1]:RC[150])"
Figurenlänge2 = Figurenlänge2.Value 'Pfegefall 1
Range("M1") = "=MAX(C[-3])"
Range("M1") = Range("M1").Value 'Pflegefall 2
' Formel für Spiellänge Maximale Figuerenlänge bis Spielende
' ist Pflegefall 3
Figurenlänge2 = "=IF(COUNT(RC[1]:RC[150])=R1C13,1,""A"")"
Figurenlänge2 = Figurenlänge2.Value
Figurenlänge2.Replace What:="A", Replacement:=""
End Sub
Besten Dank im voraus
Wenke