ich komme einfach nicht weiter. Mit folgendem Makro möchte ich eine Formel auslesen, ändern und wieder in die Zelle zurückschreiben.
Sub Formel_aendern()
Dim strBereichMedia() As String
strBereichMedia = Split(Cells(Selection.Row, Selection.Column).FormulaLocal, "/")
If UBound(strBereichMedia()) >= 1 Then
Cells(Selection.Row, Selection.Column).Formula = strBereichMedia(0) & " / " & CInt( _
strBereichMedia(1)) - 1
End If
End Sub
In der Zelle, die ausgelesen wird und dessen Formel geändert werden soll, steht die Formel =(ZÄHLENWENN(C14:C19;""))/8. In der Formel soll die Zahl, durch die geteilt werden soll, hier die Zahl 8, geändert werden.
Mit meinem Makro erhalte ich aber einen Laufzeitfehler 1004, Anwendungs- und objektdefinierter Fehler und die Zeile
Cells(Selection.Row, Selection.Column).Formula = strBereichMedia(0) & " / " & CInt(strBereichMedia(1)) - 1
wird gelb markiert.
Kann mir jemand sagen warum?
Danke Euch für die Hilfe,
Kasimir