Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Eingabezelle freigeben /sperren

Eingabezelle freigeben /sperren
12.07.2004 10:29:29
wolfgang
Hallo,
ich möchte in Abhängigkeit eines Zellinhalts Eingabezellen zur Eingabe freigeben oder mit einem Text versehen (z.B. "Eingabe entfällt"). Kann mir jemand weiterhelfen.
Gruß Wolfgang
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabezelle freigeben /sperren
12.07.2004 10:39:04
Matthias
Hallo Wolfgang,
ins Codemodul des Arbeitsblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
If [c4].Value > 12 Then
ActiveSheet.Unprotect
[f4].Value = "(entfällt)"
[f4].Locked = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
If [f4].Value = "(entfällt)" Then [f4].Value = ""
[f4].Locked = False
ActiveSheet.Protect
End If
End If
End Sub

Wenn in C4 ein Wert >12 steht, wird die Zelle F4 mit Text versehen und gesperrt.
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige