Hallo Excelperten!
Ich habe ein Sheet erstellt, in dem diverse Zellen durch sverweise ausgefüllt werde.
Nun möchte ich aber, dass die Zellen, sobald ein Wert drin ist, geschützt sind.
Ist dies überhaupt machbar?
Vielen Dank im Voraus
LE
Ich habe ein Sheet erstellt, in dem diverse Zellen durch
sverweise ausgefüllt werde.
Nun möchte ich aber, dass die Zellen, sobald ein Wert drin
ist, geschützt sind.
Ist dies überhaupt machbar?
Hi Lucifer,
ja, das ist möglich, aber nicht direkt und nur durch Vba automatisiert.
Und zwar müssen diejenigen Zellen überwacht werden in denen durch manuelle Eingabe oder durch Makros der Zellwert geändert wird.
Diese Änderungen rufen dann automatisch das Change-Ereignis auf, also ein Makro.
Ändert sich ein Zellinhalt durch die Formel in der Zelle, so tritt das nicht.
Angenommen, du hast in B1:
=SVERWEIS(A1;Tabelle2!A1:B100;2;0)
so mußt du Spalte A überwachen, d.h. in das Codemodul von „Tabelle1“ folgenden Code setzen
Option Explicit
’
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range(„A“)) Is Nothing Then Exit Sub
Dim Zei As Long
With Worksheets(„Tabelle1“)
.Unprotect
For Zei = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(Zei, 2).Value „“ Then .Cells(Zei, 2).Protect = True
Next Zei
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
Gruß
Reinhard
Was vergessen
@Lucifer,
vor Einfügung des Codes alle Zellen markieren und bei Format… das gesperrt-Häkchen entfernen, dann Blatt schützen.
Wenn du mit Passwort schützt, so schau in die Vba-Hilfe zu protect und Unprotect wie du das einbaust.
Gruß
Reinhard