Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife - Zellen sperren

Forumthread: Schleife - Zellen sperren

Schleife - Zellen sperren
12.05.2015 18:40:49
Marco
Hi, ich möchte folgendes erreichen:
Userbild
Ich habe von Zelle B6 bis I6 eine Zeile (gelbe Zellen auf dem Screenshot), wo ich jeweils immer einen Namen eintragen kann. In den jeweiligen Spalten, also B8 bis B15, C8 bis C15 usw. bis I8 bis I15 können Informationen jeweils zu dem Namen eingetragen werden.
Die Zellen mit den Informationen (B8-B15 etc.) sollen solange deaktiviert bleiben, bis zuvor oben ein Name eingetragen wurde.
Hierzu habe ich folgenden Code, der das auch soweit macht wie ich will. 
ActiveSheet.Unprotect
If IsEmpty(Range("B6")) = True Then
Range("B8:B15").Locked = True
Range("B8:B15").Interior.ColorIndex = 2
Else
Range("B8:B15").Locked = False
Range("B8:B15").Interior.ColorIndex = 6
End If
ActiveSheet.Protect
Jetzt soll eine Schleife die jeweiligen Werte selbst setzen: also B6, C6 usw und B8:B15, C8:C15 usw.
Ich sitze jetzt schon seit geraumer Zeit dran, aber es will nicht :(

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife - Zellen sperren
12.05.2015 20:25:01
Marco
Ich hab es nunmehr irgendwie geschafft. Nur frag ich mich, ob der Code so optimal ist
Dim i, ii As Integer
Dim strNamen(7, 2) As String
strNamen(0, 0) = "B6"
strNamen(0, 1) = "B8:B15"
strNamen(1, 0) = "C6"
strNamen(1, 1) = "C8:C15"
strNamen(2, 0) = "D6"
strNamen(2, 1) = "D8:D15"
strNamen(3, 0) = "E6"
strNamen(3, 1) = "E8:E15"
strNamen(4, 0) = "F6"
strNamen(4, 1) = "F8:F15"
strNamen(5, 0) = "G6"
strNamen(5, 1) = "G8:G15"
strNamen(6, 0) = "H6"
strNamen(6, 1) = "H8:H15"
strNamen(7, 0) = "I6"
strNamen(7, 1) = "I8:I15"
'MsgBox strNamen(0, 0) & "-" & strNamen(0, 1)
For i = 0 To 7
For ii = 0 To 1
'MsgBox strNamen(i, ii)
If IsEmpty(Range(strNamen(i, 0))) = True Then
Range(strNamen(i, 1)).Locked = True
Range(strNamen(i, 1)).Interior.ColorIndex = 2
Application.DisplayAlerts = False
Else
Range(strNamen(i, 1)).Locked = False
Range(strNamen(i, 1)).Interior.ColorIndex = 6
End If
Next
Next

Anzeige
;

Forumthreads zu verwandten Themen

Gültigkeit oder Zellen sperren
anke

Hi,
ich bin wieder beim Erstellen einer Datei, die für unsere TT - Abteilung bei der Vereinsmeisterschaft genutzt werden soll.
Problem: bei einem Tischtennisduell zweier Spieler kann es bis zu maximal 5 Sätzen kommen.
Hat ein Spieler schon drei Sätze gewonnen ( also das Spiel), so...
29.08.2008 17:14:07
Thread-ID: 1005907
4 Beiträge
Anzeige
über Funktionsfeld Zellen sperren entsperren
Suche

Ich habe folgendes Problem:
Hoffentlich kann mir einer von Ihnen (von euch) hier im Forum helfen!
IST-Situation:
Die Arbeitsmappe ist bis auf ca. 12 Eingabefelder und drei Funktionsfelder gesperrt damit am Programm nichts verändert werden kann da andere Anwender das Programm nutzen....
07.12.2008 13:14:06
Thread-ID: 1030851
2 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
einzelne Zellen sperren
meixner

Hallo zusammen,
gibt es die Möglichkeit per VBa - Makro einzelne Zellen zu sperren, damit andere Leute diese Zellen in Excel nicht verändern können? z.B. Zelle A1 bis A8 darf nicht verändert werden und solldeswegen gesperrt werden.
Vielen Dank für Tips.
Dani
16.06.2010 12:31:33
Thread-ID: 1162166
3 Beiträge
Zellen schützen / Zellen entsperren
Pascal

Guten Tag zusammen !
Ich habe folgendes Makro hinter einem Button auf einer Excel-Arbeitsmappe:
Private Sub CommandButton1_Click() Dim x As Long, y As Long, j As Long Dim MyDatStrg As String ActiveSheet.Unprotect "0000" MyDatStrg = InputBox("Bitte Datum angeben", "Datum", Date) If StrPt...
06.01.2011 11:30:43
Thread-ID: 1194124
4 Beiträge
Durch den Befehl speichern Zellen sperren
Wolfango

Und schon wieder eine Frage:
Gibt es einen VBA-code mit folgender Wirkung?:
In Folge des Befehls Speichern werden alle nichtleeren Zellen gesperrt formatiert.
(und das ganze innerhalb eines passwortgeschützten Arbeitsblattes).
Ziel: Wenn die Person B die Datei aufruft in welc...
28.03.2011 18:49:52
Thread-ID: 1207980
8 Beiträge
code um nicht leere zellen nachträglich zu sperren
Benjamin

Hallo
Ich habe ein Tabelle erstellt, die nun leider sehr groß ist.
Nun würde ich gerne alle nicht leeren Zellen über ein Macro sperren.
Hier gibt es zwar viele Lösungsvorschläge, aber di ebeziehen sich immer nur auf Eingaben und dann sperren,
Ich möchte aber ein makro welches...
29.11.2011 15:27:20
Thread-ID: 1239944
3 Beiträge
gefüllte Zellen sperren
Jögg

Hallo Wissende,
ich habe eine Tabelle in der Namen eingetragen werden sollen von verschiedenen Nutzern.
Ich möchte das nach dem Schließen der Tabelle der Eintrag gesperrt ist, also kein anderer den vorhergehenden Eintrag ändern kann, sondern nur seinen Namen neu eintragen darf.
LG
26.09.2014 08:33:39
Thread-ID: 1383493
6 Beiträge
In selektierten Blättern Zellen sperren
Markus
Hallo zusammen,
ich habe hier ein Makro mit dem ich aus den selektierten Blättern bestimmte Zellen kopiere. Jetzt möchte ich anschließend in den selktierten Blättern (außer Sheet "Vorgaben") einige Zellen sperren.
Wie müßte das aussehen?
Danke Gruß Markus
Public strDateiName1 As Str...
02.12.2014 14:49:16
Thread-ID: 1395748
3 Beiträge
Über bestimmte Textfeldeingabe Zellen sperren
Leo

Hallo miteinander,
ich bin in Excel und VBA nicht wirklich erfahren, versuche zzt. aber trotzdem ein etwas komplizierteres Projekt in Excel umzusetzen.
Es geht darum, dass ich in unserer Firma die Lohnzettel der einzelnen Mitarbeiter digitalisieren möchte. Im Moment unterschreiben die M...
03.12.2014 14:17:48
Thread-ID: 1395932
8 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
Volle Zeilen(Zellen) sperren/Blattschutz
Rolf

Ich habe eine kleine Datenbank in Excel mit Überschriften. Es sind bereits mehrere Zeilen eingetragen. Beim Schließen möchte ich jetzt, daß die Zeilen wo ein Eintrag haben, komplett gesperrt werden, daß sie nicht mehr unabsichtlich verändert werden können. Die Zeilen wo noch leer sind, sollte j...
02.12.2002 21:07:39
Thread-ID: 188155
3 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