Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle entsperren, wenn Bedingung erfüllt

Zelle entsperren, wenn Bedingung erfüllt
Markus
Hallo Zusammen,
ich habe eine Tabelle, in in der ich z.B. in Spalte A einen Namen eingeben will, dies aber nur zulassen will, wenn in Spalte B "erl." bzw. "nein" steht. Andernfall soll die jeweilige Zelle in Spalte A gesperrt sein. Dies soll für jede Zelle in der Tabelle gelten, welche unendlich lang werden kann. Die Tabelle liegt aufm Netz und ist grundsäzlich schreibgeschützt.
Kann man sowas mittels Makro lösen und kennt jemand hierzu eine Lösung.
Danke schon im voraus.
Gruss
Markus

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

Betreff
Benutzer
Anzeige
AW: Zelle entsperren, wenn Bedingung erfüllt
17.02.2006 21:56:14
Cardexperte
Hallo,
ja das geht mit einem Makro, eigentlich relativ einfach, hier nur der Weg, wenn du nicht weiter kommst maile nochmal:
also das Makro nutzt ein Worksheet change Ereignis,
es gibt aber im Netz auch dazu viele Beispiele,
also Inhalt ist eigentlich nur , das du mit Target.offset(0,1) die Spalte ausliest und dies als Kriterium für die Eingabe nimmst (ungetestet):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Offset(0, -1).Value "erl." Then Target.value="" else exit sub
usw.
Gruss WS
Anzeige
AW: Zelle entsperren, wenn Bedingung erfüllt
20.02.2006 09:15:44
Markus
Hallo,
erst mal danke, aber leider funktioniert es bei mir nicht. Ich habe an 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Offset(0, -1).Value <> "erl." Then Target.value="" else exit sub
noch:
End If
End Sub

angefügt, bekomme dann aber nur einen Laufzeitfehler.
Meine Makro-Kenntnisse sind extrem gering. Ist das mit dem Sperren und Entsperren der Zellen eigentlich auch in der Lösung enthalten?
Bitte um weitere Hilfe.
Gruss
Markus
AW: Zelle entsperren, wenn Bedingung erfüllt
20.02.2006 12:19:06
Cardexperte
Hallo Markus,
versuchs mal damit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If ActiveCell.Offset(0, 1) <> "erl." And ActiveCell.Offset(0, 1) <> "nein" Then MsgBox ("Diese Zelle kann nur bearbeitet werden, wenn in Nachbarzelle erl. oder nein!"): Exit Sub Else
End If
End Sub

code kommt ins Blatt und habe den auch getestet! Aber Achtung, dann würde ich die Eingae mittels Gültigkeit in Zelle B beschränken, denn wenn jemand z.B. nein mit einem Lerrzeichen eingibt kannst du nicht eingeben!
Gruss WS
Anzeige

46 Forumthreads zu ähnlichen Themen

Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Anzeige
Zellen zählen, wenn zwei Bedingungen erfüllt sind
MB

Hallo zusammen,
ich möchte eine Matrix aufstellen, mit der ich verschiedenen Mitarbeitern verschiedene Ereignisse zuschlüsseln kann.
In Tabelle 1 steht in Zeilen der Name und auch das Ereignis. Der Mitarbeiter kann mehrmals vorkommen und auch die Ereignisse können unterschiedlich sein:<...
03.05.2011 19:03:16
Thread-ID: 1212923
4 Beiträge
Zelleintrag nur wenn Bedingung erfüllt
Dietmar

Hallo in die Runde,
kann mir jemand sagen, wie nachfolgenden Code anpassen muss, so dass zusätzlich in Spalte
C2:C10 Werte nach Eintrag wieder gelöscht werden, wenn in Spaltenbereich A2_A10 in der entsprechenden Zeile ein "E" oder nichts steht.
Eine Msgbox mit der entsprechedhenden...
29.07.2011 13:56:57
Thread-ID: 1224155
3 Beiträge
Anzeige
Zeilen aus Range löschen, wenn Bedingung erfüllt
Peter

Guten Tag
Mit untenstehendem Code lösche ich gewisse Zeilen, wenn diese in einmem String auf der gleichen Zeile eine bestimmte Bedingung erfüllen.
Das funktioniert so lange, bis die Bedingung auf der zweitletzten Zeile und der letzten Zeile zutrifft. Dann wird die letzte Zeile nicht gel...
04.06.2013 12:06:44
Thread-ID: 1316229
4 Beiträge
VBA Zeilen verschieben wenn Bedingungen erfüllt
Jochen

Hallo zusammen,
ich habe hier ein Problem bei dem ich absolut nicht weiterkomme.
Ich habe eine Projektübersicht (Tabelle1) in Excel. Nun würde ich gerne wenn ein Projekt abgeschlossen ist, dieses komplett in ein Archivtabellenblatt (Tabelle2)verschieben.
In Spalte B habe ich die Pro...
04.07.2013 15:44:56
Thread-ID: 1321128
12 Beiträge
VBA Zeilen verschieben wenn Bedingungen erfüllt
Jochen

Hallo zusammen,
ich habe hier ein Problem bei dem ich absolut nicht weiterkomme.
Ich habe eine Projektübersicht (Tabelle1) in Excel. Nun würde ich gerne wenn ein Projekt abgeschlossen ist, dieses komplett in ein Archivtabellenblatt (Tabelle2)verschieben.
In Spalte B habe ich die Pro...
05.07.2013 08:50:01
Thread-ID: 1321225
5 Beiträge
Zeilen(bereich) kopieren wenn Bedingungen erfüllt
Chris

Hallo zusammen,
ich habe leider ein Problem bei der Erstellung eines Makros.
In Tabelle1 befinden sich in der Spalte A bis H ausgefüllte Zelle. Nun soll ein Makro alle Zeilen, die sowohl in Spalte G eine 1 und in Spalte H ein X haben in Tabelle2 kopieren. Dabei soll aber die Spalte B un...
19.02.2014 16:52:23
Thread-ID: 1350404
4 Beiträge
VSB - Zeile auslesen, wenn Bedingung erfüllt
loki

Hallo,
leider bin ich nicht sonderlich gut bewandt in Visual Basic, doch glaube ich genau dort die Lösung meines derzeitigen Problems zu finden.
Ausgangssituation:
Ich habe zwei Tabellen.
Tabelle 1 = Quelle
Tabelle 2 = Ziel
In Tabelle 1 stehen jeweils in jeder Zeile in...
24.10.2014 14:33:36
Thread-ID: 1388454
8 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
3
2
3
2
9
3
11
4
3
7
4
1
7
6
3
5
2
8
16
4
4
12
1
3
7