Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen sperren bei erfüllter Bedingung

Zellen sperren bei erfüllter Bedingung
03.11.2015 22:26:27
Heike
Hallo liebes Forum,
ich möchte in einer Excel-Tabelle immer, wenn in Spalte I der Wert "ZF" eingegeben wird, die jeweiligen Zellen von A bis H sperren:
Also wenn in I2 "ZF" steht, sollen die Zellen A2 bis H2 gesperrt werden,
wenn in "I3" "ZF" steht, sollen die Zellen A3 bis H3 gesperrt werden usw.
Wie muss ich den Code entsprechend abändern, damit das funktioniert?
Anbei die entsprechende Beispieldatei mit dem bisherigen Code:
https://www.herber.de/bbs/user/101225.xlsm
Ich hoffe, es kann mir jemand weiterhelfen.....
Herzlichen Dank im Voraus.
Freundliche Grüße,
Heike

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen sperren bei erfüllter Bedingung
03.11.2015 22:39:36
Sepp
Hallo Heike,
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target(1, 1)
  If .Column = 9 Then
    Me.Unprotect
    Range(Cells(.Row, 1), Cells(.Row, 8)).Locked = .Value = "ZF"
    Me.Protect
  End If
End With
End Sub

Gruß Sepp

Anzeige
AW: Zellen sperren bei erfüllter Bedingung
03.11.2015 23:41:54
Heike
Hallo Sepp,
herzlichen Dank für deine schnelle Rückmeldung, es funktioniert :-)
Liebe Grüße,
Heike

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige