Hallo M.O.
Info: Ich habe jetzt auch verstanden, dass wenn eine Zelle die gesperrt ist die Berechnung trotzdem erfolgt.
Nun habe ich die Datei so verändert das ich den Vorschlag von Karin umgesetzt habe und die doppelten Zellen/ Berechnungen gelöscht sind. Es funktioniert soweit ganz gut. Nur wenn ich das nächste Tabellenblatt anklicke, Scrollt dies von oben nach unten das gleiche ist, wenn ich die Einträge Legs löschen klicke, habe ich das Gefühl das dies zweimal passiert.
Wenn du möchtest, kannst du dir die Datei nochmals anschauen und mir schreiben was für ein Fehler ich habe und wie ich das Ändern kann.
Dieses VBA habe ich in anderer Form einmal von dir erhalten, nun wollte ich einmal nachfragen ob ich dies erweitern kann auf die Zellen die mit der Formel in Zelle als Datenprüfung B61=b7<3 anwenden kann. Dies habe ich in Ránge B61:h72 eingegeben aber es geschah nichts
Will dabei die händige Eingabe ersparen.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Bereiche, in dem die 1 eingefügt werden sollen
If Not Intersect(Target, Range("C7:I18,L7:R18,U7:AA18,AD7:AJ18,AM7:AS18,AV7:BB18,Be7:Bk18,Bo7:bu18,B61:H72")) Is Nothing Then
Target.Value = 1
Cancel = True 'Menü nach drücken rechte Maustaste nicht anzeigen
End If
End Sub
Habe die Datei hoch geladen. Wenn was möglich ist, wäre es super eine Info zu erhalten.
https://filehorst.de/d/cvdaDBDt
Danke im Voraus
Gruß Adde