EXCEL VBA Zellen sperren wenn Bedingung erfüllt!

[mirobo]

Hallo,
wer kann mir helfen...
ich führe in Excel eine Versandliste.
dort habe ich in der spalte j die Verpackungsmittel eingetragen (z.B. Europalette, Einwegpalette, oder Karton) in den nächsten 3 feldern
spalten K,L,M werden Länge Breite und Höhe eingetragen.
Ich möchte, dass wenn ich in Spalte J das Wort "Karton" eintrage die nächsten 3 Felder in der Spalte gesperrt werden.
Hat jemand einen Lösungsvorschlag in VBA für mich, bin leider recht unerfahren in Beziehung VBA!

schon mal Dank im Voraus!   :s

[schauan]

Hallöchen,

im Prinzip so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  'Wenn Spalte = 10 (J) und Zellinhalt = "Karton" dann rechts daneben 3 Zellen sperren
  If Target.Column = 10 And Target.Value = "Karton" Then Target.Offset(0, 1).Resize(1, 3).Locked = True
End Sub

Damit die Sperrung wirkt, musst Du auch den Blattschutz setzen.
Wenn jemand zum zweiten mal Karton einträgt, läuft der Code auf einen Fehler. Das könnte man noch vermeiden.
Wenn jemand Karton löscht, wird die Sperrung nicht aufgehoben.

Der Code kommt ins codemodul vom Tabellenblatt, wo er wirken soll. Wo Du das findest und wie das geht, weißt Du?