habe ein Problem. Das untere Makro rechnet anhand von anderen Werten (die über eine Formel geholt werden) Zahlen aus.
Das Problem ist, dass das Rechenergebnis fix ist und nicht laufend berechnet wird.
Ändere ich im unteren Makro von .Value auf .formular1c1 schreibt er mir trotzdem das Rechenergebnis fix hin.
Kann mir da jmd. helfen?
MAKRO
Sub Gewichte_berechnen2()
Dim Wert As String, bereich As Range
For Each bereich In Worksheets("Liquiditätsanalyse").Range("F10:F100")
Wert = bereich.Offset(0, 1).Value
Select Case Wert
Case "Addition"
bereich.Value = Round(Worksheets("Cers Date Import").Range("B5").Value * _
Worksheets("Data").Range("ao11").Value / 40 / 100 / bereich.Offset(0, 6).Value, 0)
Case ""
bereich.Value = Round(Worksheets("Cers Date Import").Range("B5").Value * _
Worksheets("Data").Range("ao11").Value / 40 / 100 / bereich.Offset(0, 6).Value, 0)
bereich.Value = bereich.Offset(0, -2).Value - bereich.Value
Case "Deletion"
bereich.Value = Round(-bereich.Offset(0, -2).Value, 0)
End Select
Next bereich
End Sub
Viele Grüße
Dani