Office: Bedingter Zellschutz

Guten Morgen liebe Excel-Versteher,

Ich bin mal wieder auf ein Problem gestoßen, das ich auch nach längerem Forendurchforsten und Googlebefragen nicht lösen konnte...

Für eine Berechnung brauche ich Gesamtwerte (performance level) mehrerer Bauteile. Diese gibt es (bzw. sollte es) einerseits vom Hersteller, andererseits ist eine etwas aufwendige Berechnung auf Basis von anderen Werten erforderlich. Wenn man also die Daten des Herstellers bereitgestellt bekommt und man diesen Wert in die Zelle eingibt, dann sollten alle Zellen, die zum alternativen Rechenweg von Nöten wären, gesperrt werden, damit die Übersichtlichkeit gewährt bleibt und unsinnige Eingaben keine negativen auswirkungen auf das Gesamtergebnis haben.
Schön wäre es natürlich im Gegenzug, wenn dann bei Wahl der Berechnung die direkte Eingabe gesperrt werden könnte.

Gibt es da einen günstigen Weg?

Eine alternative Lösung dazu wäre das per Schaltfläche und VBA so zu lösen, dass einfach die entsprechenden Zeilen ausgeblendet werden (dazu hab ich auch schon nen Code), wobei ich jedoch als nachteilig erachte, dass man die Zeilenformatierung dann beim Sperren freigeben muss und da es sich um eine Vorlage handelt, will ich natürlich nicht, dass mir jemand das Layout verbastelt.

Vielen Dank für alle kommenden Antworten...

Gruß rocknagor

 

Hallo weis nicht ob das in etwas das ist was du suchst aber dieser Code in ein Tabellenblatt.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Cells.Locked = False
Dim i As Integer
Dim ii As Integer
For i = 1 To 100
For ii = 2 To 10
If Cells(i, 1).Value <> "" Then
Cells(i, ii).Locked = True
End If
Next ii
Next i
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sperrt wen in Spalte A ein Wert eingetragen wird 9 Zellen die rechts danebenliegen. Falls kein Wert eingetragen wird sind diese nicht gesperrt.

Gruß

 

Vielen dank erstmal,

das geht schon in die Richtung und sieht auch brauchbar aus.
Problem dabei ist nur, dass ich mich nicht auf eine ganze Spalte für die Ausgangsposition beziehen kann. Es würde sich jeweils um eine bestimmte Zelle (zb. E27) handeln und die Berechnungsfelder, die gesperrt werden sollen, würden einen ganzen Bereich abdecken (zb. B30:H50). Allerdings sind in diesem Bereich eben auch Zellen, die Formeln oder Text enthalten, welche natürlich in jedem Fall geschützt bleiben müssen. Also müsste man die Zellen irgendwie auf ihren Status abfragen oder auf eine Andere Art "fest" schützen, bzw. alle bearbeitbaren Zellen einzeln angeben(was zwar Arbeit macht, jedoch für mich vertretbar ist).

Da ich nur sehr begrenzte Ahnung von VBA habe, wäre ich über eine Lösung sehr dankbar, in der eine auslösende Ereigniszelle und danach ein paar manuell hinzufügbaren zu sperrenden Zellen drin sind.

danke schon mal,

Gruß rocknagor

 

Ja das ist auf jedenfall möglich du kannst prüfen lassen welche zellen Formeln enthalten und diese gleich schützen lassen. Für das andere Problem, wen die Berechnungszellen kein bestimmtes Muster haben und die Bereiche die gespert werden sollen, immer unterschiedlich sind muss man das wohl Manuell mit VBA machen. Kannst ja mal ein Teil deiner Mappe Posten? Gruß

 

Wie gesagt,
das manuelle Eintragen nehme ich gern in Kauf, da ich das somit auf verschiedenste Bereiche(bei verschiedensten Aufgaben) anwenden kann.
Ich wäre wirklich schon sehr zufrieden, wenn ich wüsste, wie ich als Auslösezelle beispielsweise F13 im Code Festlegen kann und als dann zu sperrende/ zu entsperrenden Zellen beispielsweise (C15;K18;H19;...), sodass ich da die entsprechenden Zellen frei eintragen und erweitern kann.

Danke,

Gruß rocknagor

 

ok, nach etwas Basteln und Probieren hab ich mir das nun selbst aus deinem Code zusammenbauen können.

Vielen Dank für die Vorlage.

Gruß rocknagor