Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenschutz an Bedingung knüpfen

Forumthread: Zellenschutz an Bedingung knüpfen

Zellenschutz an Bedingung knüpfen
29.05.2009 12:57:59
Björn
Hallo,
ich bitte um Hilfe. Ich möchte den Schutz bzw. Nichtschutz einer Zelle an bestimmte Bedingungen anderer zellen im Dokument knüfen:
Beispiel:
Die Zelle A 1 ist entweder "ja" oder "nein"
Wenn A1 "ja" ist, dann soll Zelle B1 geschützt sein
Wenn A1 "nein" ist, dann soll Zelle B1 ungeschützt sein
Danke vorab
Bjrön Gabler
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenschutz an Bedingung knüpfen
29.05.2009 13:07:27
Klaus
Hallo Bjrön (sic),
das würd ich per Daten-Gültigkeit machen.
Daten - Gültigkeit - benutzerdefiniert - Formel: =A1="nein"
Hat den gleichen Effekt, die Zelle ist nicht beschreibbar - hängt allerdings auch nicht am Blattschutz ja/nein.
Grüße
Klaus M.vdT.
AW: Zellenschutz an Bedingung knüpfen
29.05.2009 13:27:31
Björn
Hallo Klaus,
ich danke dir, das hilft mir schon mal weiter. Allerdings reicht mir die Sicherheit noch nicht ganz.
Das Problem ist, wenn man will, kann man immer noch ziemlich einfach die Gültigkeitsprüfung zertören bspw. indem ich dort in die Zelle B1 einfach einen Wert aus einer anderen Zelle hineinkopiere. Dies möchte ich allerdings gern vermeinden. Das heisst, wenn A1 nicht "nein" ist, soll man unter keinem Umständen mehr die Möglichkeit haben die zelle B1 zu verändern.
Gibt es da eine Möglichkeit?
Danke vorab.
Gruß
Björn
Anzeige
mit VBA, Selection.Change usw ...
29.05.2009 13:43:51
Klaus
Hallo Björn,
das geht ungefähr so:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
.Unprotect
If .Range("A1") = "ja" Then
.Range("B1").Locked = False
Else
.Range("B1").Locked = True
End If
.Protect
End With
End Sub


oder kürzer:


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
.Unprotect
.Range("B1").Locked = Not (Range("A1") = "ja")
.Protect
End With
End Sub


Beides funktioniert, geht aber bestimmt eleganter und Ressorcenschonender - ich lass mal offen, vielleicht schaut ja einer der VBA-Experten vorbei und verbessert!
Grüße,
Klaus M.vdT.

Anzeige
AW: mit VBA, Selection.Change usw ...
29.05.2009 14:16:05
Björn
Hallo Klaus,
Danke das werde ich so versuchen auch wenn ich mit VBA noch keine große Erfahrung habe.
Gruß
Björn
AW: mit VBA, Selection.Change usw ...
29.05.2009 14:16:15
Björn
Hallo Klaus,
Danke das werde ich so versuchen auch wenn ich mit VBA noch keine große Erfahrung habe.
Gruß
Björn

Forumthreads zu verwandten Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Hilfe ! Zellen einfärben mit bedingung
sockel939

Hallo Leute,
wie schaffe ich es per makro ( ! )
alles was links neben zelle m2 bis m1000 steht einzufärben.
Also wenn in M2 z.B. a steht, alle zellen von L2 bis A2 = Grün
M3 z.B. Hallo = L3 bis A3 = Rot usw.
Weis nicht in welcher reihenfolge ich die makros aufnehmen soll :-...
15.08.2008 15:09:00
Thread-ID: 1002195
5 Beiträge
Anzeige
An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Anzeige
Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzahl Zelleinträge zählen
Markus

Hallo Excel-Profis,
Excel-Sheet mit folgender Struktur:
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI XIC
383729DI MS TIC
383729DI DAD TWC
383730DI MS TIC
383730DI XI...
01.09.2008 13:54:00
Thread-ID: 1006432
4 Beiträge
Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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