Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
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
Inhaltsverzeichnis

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

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

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
Anzeige
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)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige