Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Keine Eingabe wenn Zelle belegt ist.

Keine Eingabe wenn Zelle belegt ist.
27.12.2008 19:15:00
Andreas
Hallo Forum,
gibt es eine Formel oder ein code für folgendes Problem:
Wenn in Zelle A1 ein Wert steht können nicht die Zellen A2 und A3 ausgewählt werden. Erst wieder, wenn A1 leer ist.
Gruß Andreas
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Keine Eingabe wenn Zelle belegt ist.
27.12.2008 19:29:35
Steffen
Hallo Andreas;
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1") 0 Then Range("B1:C1") = Locked End Sub


grüße steffen

AW: Keine Eingabe wenn Zelle belegt ist.
27.12.2008 19:31:00
Steffen
hab mich vertan!
so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1")  0 Then Range("A2:A3") = Locked
End Sub


steffen

Anzeige
AW: Keine Eingabe wenn Zelle belegt ist.
27.12.2008 19:36:00
Hajo_Zi
Hallo Steffen,
der Code ist nicht korrekt. Locked ist eine Eigenschaft also .Locked.
Der Zustand wirkt erst bei Tabellenschutz.
Der Zustand wird nicht aufgehoben falls A1=""
Gruß Hajo
AW: Keine Eingabe wenn Zelle belegt ist.
27.12.2008 19:30:00
Hajo_Zi
Hallo Andreas,
es kann in A1und a2 nichts eingegeben werden falls A1""
Tabelle3

 A
11
2 
3 

Datengültigkeit der Tabelle
ZelleZulassenDatenEingabe 1Eingabe 2
A2Benutzerdefiniert =A1="" 
A3Benutzerdefiniert =A1="" 


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Anzeige
AW: ne Lösung per Code
27.12.2008 19:44:00
Daniel
Hi
alternativ zur Steuerung über Gültigkeit könnte man die Eingabe mit diesem Code im Modul des Tabellenblatts blockieren:

Private Sub WorkSheet_SelectionChange(Target as Range)
If Intersect(Target, Range("A2:A3") is Nothing then Exit Sub
If Range("A1").Value = "" then Exit Sub
Msgbox "Zellen A2 und A3 sind blockiert" '--- Hinweis, ggf entfernen
Application.EnableEvents = false
Range("A3").Select
Application.EnableEvents = true
End Sub


Gruß, Daniel
ps Code ist nicht getestet und auf Tippfehler geprüft, hab grad kein Excel aufm Rechner

Anzeige
:-) funzt. o. w.T DANKE
27.12.2008 19:45:29
Andreas
Danke
AW: Keine Eingabe wenn Zelle belegt ist.
27.12.2008 20:12:35
Uwe
Hi Hajo,
auf die Idee das mit Gültigkeit zu lösen wäre ich so schnell nicht gekommen; hatte sofort "auf VBA geschaltet".
SUPER.
Gruß
Uwe
(:o)
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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