Office: Zelle sperren & Zellenwert ist immer 0

Hallo leute,

hab 2 Frage bezüglich die einstellungen der einzelner Zellen.

Zum einem will ich in ein excel dokument bestimmte Zellen sperren, sodass der Benutzer die Zellen nicht ändern kann bzw nicht reinschreiben kann oder löschen. Ausser wenn man die sperrung wieder aufhebt.

Zum zweiten ist meine Frage, ist es möglich dass eine Zelle immer den Wert 0 anzeigt wenn man nichts angegeben hat und man sie auch löscht. Das heisst wenn jemand auf die zelle "Entfernen" oder "Backspace" drück geht der Wert der Zelle automatisch bei 0 anstatt dass sie leer bleibt. Das scheint ein bisschen unmöglich.

Egal wenn jemand wenigstens ne Antwort auf meine erste Frage hat, bin ich auch zufrieden. Gruß ;)

 

Ok das erste hab ich selber herausgefunden xD Suche schon seit gestern.

Also die zweite Frage bleibt noch offen. ^^

 

Hallo!

Wenn du in einem Blatt den Blattschutz aktivierst, dann sind standardmäßig ALLE Zellen gesperrt, weil sie unter Format > Zellen formatieren > Schutz ein Häkchen bei "Gesperrt" haben. Nimmst du dieses Häkchen raus, so bleiben alle diese Zellen weiter bearbeitbar.

Dein zweites Problem wird wohl nur mit VBA lösbar sein, z.B. quick'n'dirty mit

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Target = 0
End Sub

 

Ja danke, das klappt zwar aber das ist bei den ganzen Tabellenblatt so.
Ich will das nur an bestimmte Zellen haben. Wie beziehe ich den code in bestimmte Zellen?

 

Hallo!

So z.B. wirkt der Code nur auf die Bereiche A1:A10 und C1:C10.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10,C1:C10")) Is Nothing Then
If Target = "" Then Target = 0
End If
End Sub

 

Genau das wollte ich, dankeschööööön :D

 

Hallo!

Noch besser ist noch dieser Code, falls auch mal mehrere Zellen aufeinmal gelöscht werden sollten:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
If Not Intersect(z, Range("A1:A10,C1:C10")) Is Nothing Then
If z = "" Then z = 0
End If
Next
End Sub

 

ah ok stimmt :D hab eben mehrere gelöscht dann kam die meldung mit dem Debugger xD Dankesehr. :)

 

Was ich eben gemerkt hab, wenn ich eine dieser Zellen entferne, kommt zwar 0 hin aber ich kanns nicht Rückgängig machen. Also der Rückgänging-Pfeil ist nicht aktiv. falls ich mehrere zellen lösche unter denen eine zelle die in vba drin ist dann kann ich das net mehr rückgängig machen. das ist ein bisschen gefährlich ^^

 

Hallo!

Ja, das ist leider richtig und leider auch nicht zu ändern, soweit ich weiß.
Du könntest höchstens eine Art "Sind-Sie-sicher?"-Abfrage in den Code einbauen.
Wer dann immernoch auf "Ja" klickt, hat dann im Zweifelsfall eben Pech gehabt... :-D

 

hmm Schade.. Naja mach nix, muss eben vorsichtig sein ^^

Also Thema hat sich erledigt. (ich muss mich in diesem VBA Editor einarbeiten -.-)

Danke nochmal :) und sry für den double post oben ^^