AW: Einzelne Zelle/Formel sperren ohne Blatt
24.02.2023 11:33:46
Daniel
Hi
du kannst ja, bevor du den Blattschutz aktivierst, wie schon vorgeschlagen wurde ja für alle Zellen außer der mit der Formel in den Eigenschaften den gesperrt-Haken rausnehmen und beim aktivieren des Blattschutzes so viel wie möglich erlauben.
sollte das dein Arbeiten immer noch zu stark behindern, dann wäre es schon eine Möglichkeit, ein Makro zu schreiben das die Formel wieder einfügt und das man ausführen kann, wenn man sie mal aus versehen überschrieben hat.
der Code müsste allerdings lauten, denn wenn du die Formel in deutsch angibst und nicht in englisch, musst du das angeben, außerdem müssen Anführungzeichen, die Teil des Textes sind, verdoppelt werden.:
cells (1,1).FormulaLocal = "=7*KÜRZEN((2&-1&-S1)/7+J1)-6+SUCHEN(LINKS(C1;2);""-MoDiMiDoFrSaSo"")/2"
du kannst das auch automatisieren mit diesem Code im Modul des Tabellenblatts:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Cells(1, 1).FormulaLocal = "=7*KÜRZEN((2&-1&-S1)/7+J1)-6+SUCHEN(LINKS(C1;2);""-MoDiMiDoFrSaSo"")/2"
Application.EnableEvents = True
End If
End Sub