Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Bestimmten Zellenbereich sperren

Forumthread: VBA: Bestimmten Zellenbereich sperren

VBA: Bestimmten Zellenbereich sperren
19.08.2020 17:19:20
Janesch
Hallo Excel-Freunde,
ich habe ein Datenbereich von A4:H11 mit unterschiedlichen Datenangaben. In der Spalte B habe ich einen Status (grün, gelb und rot).
Ich würde gerne abhängig vom Status in Spalte B, die folgenden Zellen der jeweiligen Zeile sperren lassen.
Z.B. wenn der Status in der Spalte B4 = "grün", sollten alle folgenden Zellen C4 bis H4 gesperrt werden.
Bei Status "gelb" oder "rot" sollte nichts passieren.
Leider konnte ich es nicht über die Gültigkeitskriterien lösen, da diese bereits in einigen Spalten (C oder F) als Auswahl enthalten sind.
Eventuell kann es jemand hier mit VBA lösen.
Siehe auch unten die angehängte Datei.
https://www.herber.de/bbs/user/139711.xlsx
Vorab vielen Dank für jede Unterstützung bzw. Tipp
Gruß Janesch
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Bestimmten Zellenbereich sperren
19.08.2020 17:44:22
Werner
Hallo,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 3 Then
Unprotect Password:="DeinPasswort"
Target.Offset(, 1).Resize(, 6).Locked = IIf(Target = "grün", True, False)
Protect Password:="DeinPasswort"
End If
End Sub
Code gehört ins Codemodul vom Blatt Daten
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Der Code reagiert automatisch auf Zelländerung in Spalte B ab B4.
Derzeit wird ein Blattschutz ohne Passwort gesetzt.
Das Passwort mußt du im Code noch anpassen.
Wird der Status geändert, dann wird werden die Zellen wieder "entsperrt".
Gruß Werner
Anzeige
AW: VBA: Bestimmten Zellenbereich sperren
19.08.2020 18:01:50
Janesch
Hallo Werner,
vielen Dank für deine Hilfe.
Alles funktioniert, wie gewünscht :-) Top. !!!!
Gruß
Janesch
Gerne u. Danke für die Rückmeldung. o.w.T.
19.08.2020 18:08:45
Werner
;

Forumthreads zu verwandten Themen

VBA Code Zellen kopieren wenn Bedingung erfüllt
Bonduca01

Hallo zusammen,
ich brauche eure Hilfe:
Wenn im Tabellenblatt "Berechnung" O2 kleiner oder gleich Q2 ist, dann sollen sowohl die Werte in B2:M2 und der Wert in P11 in eine Zeile des Tabellenblatts "Ergebnisse" gespeichert werden (beginnend ab Zeile 2). Die Ergebnisse sollen immer in die...
27.07.2015 09:56:34
Thread-ID: 1438665
2 Beiträge
Zahl Zellenbereich sperren, wenn Bedingung erfüllt
Robin

Hallo Community,
meine Frage lautet, ob es möglich ist, Zahlen (wie z.B. die "0") in einem Zellenbereich zu sperren (also sozusagen, dass man die 0 dort nicht mehr eingeben kann), wenn in einer anderen Zelle bestimmte Werte vorliegen.
(zusammenfassend also wenn in c3 die Zahl unter 20 f...
17.01.2017 17:58:04
Thread-ID: 1535628
9 Beiträge
Mit VBA Zellen sperren
Tina.

Hallo
Frage, ich habe ein Arbeitsblatt "Berechnungen" in F17 ist eine Mail Adresse.
Nun möchte ich gerne wenn diese geändert wird,
das im Arbeitsblatt " Rechnung Drucken " bei A22 ein Hinweis erscheint.
Geht dies mit VBA zu machen?
19.08.2017 08:58:46
Thread-ID: 1575243
3 Beiträge
Anzeige
VBA Zellen ein/ausblenden wenn Bedingungen erfüllt
Joe

Hallo zusammen,
ich finde eure Plattform super und habe auch schon eine tolle Lösung für eins
meiner Herausforderungen gefunden: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Me.Range("F78:F86")) Is Nothing And Target.Cells.Count = 1 Then Select Cas...
02.10.2017 10:50:25
Thread-ID: 1583803
5 Beiträge
VBA: Zellen kopieren, wenn Bedingung erfüllt
Anica

Hallo zusammen,
da auch intensives Googeln mich nicht weiter gebracht hat, versuche ich es einmal hier.
Mein Problem ist das folgende:
Wenn in meiner Datei im Reiter "Hauptliste" in Zelle A1 "Stempelaktion" steht, wie folgt in das Tabellenblatt "Stempelkarten" kopiert werden:
Ha...
18.09.2018 16:24:48
Thread-ID: 1646256
7 Beiträge
Excel-Vba;Zellen sperren-überprüfen
onErrorGoTo

Hallo,
Ich bin mitten in meiner Diplomarbeit in der unter anderem Einiges an Excel-Vba Programmierung notwendig ist. Ein Problem ist, dass ich einzelne Zellen in den Excel-Sheets sperren müsste, sodass der User den Inhalt nicht änder kann.
Weiters müsste ich bei vielen Zellen eine Überprü...
05.06.2005 17:36:35
Thread-ID: 620027
5 Beiträge
VBA - Zellen sperren wenn Bedingung nicht erfüllt
Philipp

Hallo zusammen,
ich habe in diesem Forum eine super Hilfe gefunden. Habe von euch den VBA Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Unprotect If Target = "" Then Range("B1") = "" Range("B1").Locked = True Else Range("B1"...
25.07.2006 19:15:08
Thread-ID: 785242
6 Beiträge
Anzeige
VBA bestimmte Zellen sperren ab Datum
Uwe

Hallo zusammen,
ich benötige eure Unterstützung mit einem VBA-Code. Ich arbeite mit Excel 2016 und möchte per folgendes erzielen:
In einem passwortgeschützten Tabellenblatt (Beispieldatei habe ich hochgeladen) sind bestimmte Bereiche durch den Anwender editierbar (im Beispielblatt in...
14.05.2020 08:02:37
Thread-ID: 1759038
5 Beiträge
Zellen sperren wenn Bedingung erfüllt
Rolf

Hallo
ich hoffe ihr könnt mir helfen
C10 : C22 wird mit U oder F bestückt was dann gesamt in C28 gezählt wird und die Bereiche C13 : C15 werden in C27 gezählt
nun möchte ich die Bereich C13 : C15 sperren für die Eingabe wenn C28=8 und C27<3 oder C28<10 und C27<4 oder C28&l...
05.11.2020 19:26:51
Thread-ID: 1791443
5 Beiträge
VBA Zellenbereich sperren
Marko
Hallo,
ich habe bereits im Netz nach einer passenden Lösung gesucht, leider ohne Erfolg. Deshalb meine Frage an Euch:
Wie kann ich mit einem Makro den Zellenbereich des aktuellen Sheets - A90 bis AA94 sperren und wieder entsperren. Mit einem Passwort wäre perfekt.
Vielen Dank für Eure Un...
05.09.2021 14:33:15
Thread-ID: 1846228
5 Beiträge
VBA Zellen Sperren für Windows-Nutzer
Thomas Be
Guten Tag,

ich wollte fragen ist es möglich, dass man Nutzern nur schreibrechte in Ihrer Zeile zulässt bspw. anhand ihrem Windowsnutzer? Zum Beispiel bei einem Urlaubsplan mit Nutzer 1 - 5 und die können nur jeweils in ihrer Zeile Urlaub für sich eintragen?

Vielen Dank im Voraus
14.07.2023 06:06:26
Thread-ID: 1936242
10 Beiträge
Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige