Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1552to1556
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
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen schreibschützen nach Bedingung

Zellen schreibschützen nach Bedingung
19.04.2017 11:20:21
Alexander
Hallo alle Zusammen,
Ich möchte eine bestimmte Zellen Range je nach Auswahl aus einer Dropdownliste schreibgeschützt machen. Hier mein jetziger Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F17").Value2  "Sonstige" Then
Range("X17:AR18").Locked = True
End If
End Sub
Jedoch funktioniert es bei mir nicht, ich kann jederzeit in die Range("X17:AR18") schreiben ohne das eine Fehlermeldung kommt.
Bitte um Hilfe
Mit freundlichen Grüßen

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

Betreff
Datum
Anwender
Anzeige
AW: Da fehlt noch der Blattschutz...
19.04.2017 11:23:22
Michael
Alex,
...denn Du setzt mit Deinem Code nur die Zell-Eigenschaft "Gesperrt" - die wird aber erst wirksam, wenn der Blattschutz aktiv ist.
Es fehlt also ein entsprechendes
me.Protect
LG
Michael
AW: Da fehlt noch der Blattschutz...
19.04.2017 11:45:36
Alexander
Ok danke für deine Antwort, so ist aber immer das ganze Arbeitsblatt schreibgeschützt und ich muss immer den Blattschutz aufheben. Ist es nicht möglich das nur diese bestimmte Range an Zellen je nach Bedingung geschützt sind oder offen? Der rest des Arbeitsblatts sollte normal zugängig sein.
Mit freundlichen Grüßen
AW: Selbe Logik...
19.04.2017 13:07:23
Michael
Alex,
...denn das Sperren/Entsperren von Zellen ist immer wirkungslos, wenn das Blatt nicht geschützt wird.
Wenn Du wechselnde Bereiche sperren willst musst Du eben im Code entsprechend vorgehen: ggf. Blattschütz aufheben, alle Zellen entsperren, Zellen des Zielbereichs sperren, Blattschutz wieder setzen etc. Zellen sind standardmäßig immer "gesperrt". In Deinem Code also etwa:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F17")  "Sonstige" Then
With Me
.Unprotect "DeinPasswort"
.Cells.Locked = False
.Range("X17:AR18").Locked = True
.Protect "DeinPasswort"
End With
End If
End Sub
LG
Michael
Anzeige

299 Forumthreads zu ähnlichen Themen

Löschen von best. Zelleninhalt
best.

Guten Mittag :-)
Ich habe mal wieder einen Wunsch *gg*
Ich würde gerne aus einem bestimmten Tabellenbereich (Spalte A) das man nach einen bestimmten Suffix (heißt das so ? :-) Sucht, und dann alles was davor steht löscht.
der Suffix heißt " | "
Vorher
001 | Testbsp1 002 |...
04.11.2008 11:06:00
Thread-ID: 1021519
7 Beiträge
Anzeige
Abgleich von Zellenbereichen in 2 versch.Arbeitsbl
Zellenbereichen

Hallo Excel-Anwender,
als Anlage habe ich eine Excel-Datei mit 2.Arbeitsblättern beigefügt. Das 1.Arbeitsblatt heißt Ber.Blatt, das 2. Tabelle 2009. Auf dem 1.Arbeitsblatt ist in Zelle B3 eine Vergütungsbezeichnung angegeben. Im 2.Arbeitsblatt sind in der Spalte A5-A28 ebenfalls Vergütungsb...
21.11.2008 11:54:00
Thread-ID: 1026680
4 Beiträge
Bestimte Zeichen von Zelleninhalt auswählen
Zelleninhalt

Hallo Excelperten,
ich lese via VBA zwei Tabellen ein und erstelle daraus eine Liste. Ich überprüfe dabei, ob es bei den aktuellen Tabellen Änderungen im Vergleich zur alten Liste gibt und übertrage diese Änderungen. Dazu lese ich den Zelleninhalt (eine Product-ID) aus den einzelnen Zeilen...
08.12.2008 11:07:00
Thread-ID: 1031015
3 Beiträge
Anzeige
Beträge einlesen abhängig von Zellenkombination
Zellenkombination

Hallo Excelfreaks
steht vor folgendem Problem
Ausgangslage: Budgetauswertung, aufgebaut in Spalten Kostenstelle/Konto/€-Wert.
Die Kostenstellen/Kontenkombinationen finden sich in der monatlich erstellen Budgetplanwerten und Istkosten wieder.
In eine Budgetauswertung möchte ich f...
28.01.2009 17:57:00
Thread-ID: 1044655
2 Beiträge
Kopieren von Zellen in Editor
Zellen

Hallo,
wir führen eine Teileliste in Excel, die künftig in regelmäßigen
Abständen in eine txt.-Datei kopiert werden soll.
Problem hierbei sind die Leerstellen im Editor!
Gibt es einen Trick oder eine Möglichkeit den "Satz" so zusammen
zu führen, das immer nur eine Leerstell...
03.02.2009 20:54:00
Thread-ID: 1046784
3 Beiträge
Einfügen von Zeilen, Spalten u. Zellen verhindern.
Zeilen,

Hallo
Wie kann ich mit VBA das einfügen und löschen von Zeilen, Spalten und Zellen verhindern.
Wäre lieb von Euch wenn jemand mir helfen könnte
Gruß
Dino
08.03.2009 18:06:43
Thread-ID: 1057918
2 Beiträge
Addition abhängig von anderen Zelleninhalten
anderen

Hallo ich habe ein Problem, bei dem ich leider nicht weiterkomme.
In den Zellen C8, D8, und E8 können jeweils bis zu 3 verschiedene Begriffe stehen.
In meinem Fall „Central Location“ „In-Field“ und „n/a“. Es kann sein, dass ein Argument nur 1x oder bis zu 3x vorkommt mit allen mögliche...
09.03.2009 12:35:38
Thread-ID: 1058115
7 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
3
2
2
1
2
1
6
8
3
6
8
4
10
6
1
1
6
2
10
4
6
7
15