Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
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
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellschutz als bedingte Formatierung

Zellschutz als bedingte Formatierung
21.10.2012 13:27:57
Paul
Hallo,
mal eine Frage: Kann man den Zellschutz auch in einer "bedingten Formatierung" hinterlegen, will die Zellen der Spalte A schützen wenn in A1 eine 1 ateht!
Gruß Paul

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellschutz als bedingte Formatierung
21.10.2012 13:35:00
Gerd
Hallo Paul,
nein.
Gruß Gerd

AW: Zellschutz als bedingte Formatierung
21.10.2012 14:20:12
Hajo_Zi
Hallo Paul,
mache es über Gültigkeit.
Tabelle1
 AB
1  7898

Daten, Gültigkeit
Zelle Zulassen Daten Wert1 Wert2 Leere Zellen ignorieren Zellendropdown Titel Eingabemeldung Eingabemeldung Titel Fehler Fehlermeldung
B1BenutzerdefiniertZwischen=UND(A1=1;B1="")     Wahr            

Tabellendarstellung in Foren Version 5.49



Anzeige
oder mit ein wenig Code
22.10.2012 11:27:27
Klaus
Hallo Paul,
benutzt nicht explizit den Zellen-Schreibschutz, macht aber (hoffentlich) was du möchtest:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Application.EnableEvents = False                            'Ereignisse abschalten
Set myRng = Range("A2:A10000")                         'Bereich Festlegen (ganz viel  _
Spalte A)
Set myRng = Intersect(myRng, Range(Target.Address))    'Test ob im Bereich
If Not myRng Is Nothing Then                           'Test ob im Bereich
If Range("A1") = 1 Then                             'Wenn in "A1" eine 1 steht, rückgä _
ngig
Application.Undo                            'rückgängig
'msgbox("Nix da!")                          'Meldung an den User ( _
einkommentieren falls benötigt)
End If
Application.EnableEvents = True                             'Ereignisse anschalten
End Sub
Erklärung:
Sobald in Spalte A (A2:A1000) etwas geändert wurde UND in Zelle A1 eine "1" steht, wird der "Rückgängig" Knopf gedrückt.
Grüße,
Klaus M.vdT.
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige