Excel Zelle sperren wenn Bedingung erfüllt

Registrierung: 29.05.2018

Karma:

Hallo Zusammen,

habe eine Arbeitsmappe mit 3 Tabellen, die identisch aufgebaut sind.
In jeder Tabelle gibt es zwei Spalten, z.B. "E15" oder "F15" ,wenn in einer dieser ein "x" gemacht wird, soll die Zellen "N15" und "O15" gesperrt und deren Inhalt gel�scht werden. Das schwierige dabei ist, jede diese Tabellen ist 1045000 Zeilen lang und in jede Zeile muss dieses Verfahren gelten.

Hier mein Code, den ich mir mal f�r eine Spalte gebastelt habe, der aber nicht funktioniert:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1:$E1048576" Then
Select Case Target
Case x
Range("$N$1:$O$1048576").Locked = True
Case Else
If Target.Address = "$F$1:$F1048576" Then
Select Case Target
Case x
Range("$N$1:$O$1048576").Locked = True
Case Else
End Select
End If
End Sub

Hoffe ich hab mich verst�ndlich ausgedr�ckt.

Vielen lieben Dank im Voraus.

Viele Gr��e

Enrico

Ge�ndert von Kyudo (25.01.2019 um 13:52 Uhr).

Registrierung: 21.10.2008

Hallo Enrico,

das geht viel einfacher:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Or Target.Column = 6 Then
  Application.EnableEvents = False
  Target.Offset(0, 9).Locked = True
  Application.EnableEvents = True
End If
End Sub

__________________

Gru� Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 10 Home 64 Bit, Office 2016
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)

Threadstarter 

Registrierung: 29.05.2018

Karma:

Hallo Hasso,

vielen Dank f�r Deine schnelle Hilfe.
Habe den Code beim ntsprechenden Tabellenreiter eingegeben und gespeichert, doch es passiert nichts

Viele Gr��e

Enrico

Registrierung: 21.10.2008

Hallo Kyudo,

Was soll denn passieren? Die Zelle in Spalte N bzw. O wird gesperrt.

Das hat erst einmal nat�rlich keine Wirkung, sondern erst, wenn das Blatt gesch�tzt wird.

Am besten w�re, wenn du mal deine Mappe hochl�dst.

__________________

Gru� Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 10 Home 64 Bit, Office 2016
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)

Threadstarter 

Registrierung: 29.05.2018

Karma:

Hallo Hasso,

hmm, eigentlich wollte ich, dass die Zelle sofort nach Eingabe des "x" gesperrt wird und nicht erst wenn ich das Blatt separat sch�tze. Diese Liste beinhaltet Personenbezogene Daten und ist im Netzwerk f�r die Abteilung freigegeben, daher kann ich leider keine Mappe hochladen.

Ich versuche noch einmal mein Problem zu schildern.

In Spalte "E" und "F" hat man die M�glichkeit ein "x" zu setzen, sobald aber dieses "x2 gesetzt wurde, m�ssen die Spalten "N" und "O" gesperrt werden und deren Inhalt gel�scht werden, dies soll aber genau dann passieren, wenn das "x" gesetzt wird. Denn wenn ich die Zelle erst sperren muss, kann ich mir auch die �ber 1 Mio.Zeilen auch anschauen und die Zellen dann per Hand sperren. Mein Chef w�re wohl nicht so begeistert.

Viele Gr��e
Enrico