Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige