wenn ich per VBA in eine Zelle eine Formel reinschreibe funktioniert die Datei nicht mehr. Ich bekomme aber keine Fehlermeldung.
Die Zelle D24 enthält keine bedingte Formatierung, aber ein min. max. Datenüberprüfung, die ihre Werte aus anderen Zellen bezieht.
Hier mal mein Code. Sobald die Zeile mit Formula drin ist geht es nicht mehr.
Über den Rest blockiere ich die Möglickeit etwas in D24 + D25 einzugeben.
Vielen Dank für eure Hilfe
Martin
Sub Worksheet_Calculate()
If Worksheets("User Interface").Range("U3") = "8x80" Then
Sheets("User Interface").Unprotect
Worksheets("User Interface").Range("D24").Formula = "=E24"
Worksheets("User Interface").Range("D24").Locked = True
Worksheets("User Interface").Range("D25").Locked = True
Sheets("User Interface").Protect
Else
Sheets("User Interface").Unprotect
Worksheets("User Interface").Range("D24").Locked = False
Worksheets("User Interface").Range("D25").Locked = False
Sheets("User Interface").Protect
End If