Excel VBA: Auswahl aus Gültikkeitsliste verbieten wenn...

[sharky51]

Hallo zusammen,

vielleicht könnte Ihr mir wieder mal auf die Sprünge helfen.

Ich möchte in dieser Tabelle die Auswahl "closed" aus der Gültigkeitsliste in Zellen der Spalte "E" so lange verhindern, solange die Werte in den Zellen der Spalten  A & B nicht identisch sind und daraus resultierend der Wert in Spalte "C" nicht auf "Null" steht. Gleichzeitig soll eine Meldung (Eintrag in Spalte "C" unvollständig) hochpoppen die darauf hinweist dass der Wert in der Zelle in Spalte "B" fehlt oder noch nicht korrekt ist.


Tabelle3

	A	B	C	D	E
1	volume	partial delivery	open	Lieferdatum	Status
2	1		1	18.01.2016	closed
3	2		2	19.01.2016	closed
4	3		3	20.01.2016	closed
5	4		4	21.01.2016	open
6	5		5	22.01.2016	open
7	6		6	23.01.2016	cancel

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.08 einschl. 64 Bit

[snb]

In E2

PHP-Code:

=If(A2=B2;"closed";"open") 


[sharky51]

Hallo,

in E2 ist eine Gültigkeitsliste hinterlegt....!? Da kann ich doch keine Formel eintragen....wenn ich mich nicht irre?

[snb]

Hier brauchst du doch gar kein Gültigkeitsliste ?

[sharky51]

Das ist mir schon klar. Leider muss die Gültigkeitsliste aber unangetastet bleiben.
Die Zeilen werden auch noch in Abhängigkeit der Gültigkeitsliste durch eine Bedingte Formatierung eingefärbt.

Deshalb wäre mir eine VBA-Lösung wichtig.

Trotzdem vielen Dank!

[atilla]

Hallo,

man könnte dann das Auswählen der Zelle verhindern:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 5 And Target.Row > 1 Then
   If Target.Offset(, -4) <> Target.Offset(, -3) Then
     MsgBox "Splate B nicht korrekt!"
     Application.EnableEvents = False
     Target.Offset(, -3).Select
     Application.EnableEvents = True
   End If
 End If
End Sub

[snb]

Die Zeilen werden auch noch in Abhängigkeit der Gültigkeitsliste durch eine Bedingte Formatierung eingefärbt.

Dass stimmt nicht.

Deshalb wäre mir eine VBA-Lösung wichtig.

Bedingte Formatierung hat nichts mit VBA zu tun, weder VBA mit Gültigkeitsliste.

[sharky51]

Hallo attila,

das ist schon mal nicht schlecht.

Mann soll aber die Zelle in Spalte 5 aber schon anwählen können, egal ob die Werte in den vorherigen Zellinhalte, ungleich oder gleich sind.
Nur wenn keine Übereinstimmung herrscht und "closed" ausgewählt werden soll, darf "closed" nicht gesetzt werden und es soll gemeckert werden.

[sharky51]

Die Zeilen werden auch noch in Abhängigkeit der Gültigkeitsliste durch eine Bedingte Formatierung eingefärbt.

Dass stimmt nicht.

Deshalb wäre mir eine VBA-Lösung wichtig.

Bedingte Formatierung hat nichts mit VBA zu tun, weder VBA mit Gültigkeitsliste.

Sorry, ja das weiß ich....eine längere Beschreibung warum, wieso, weshalb ich eine VBA-Lösung bevorzuge würde den Rahmen sprengen.
Trotzdem vielen Dank für Deine kurze und knackige Lösung! Werde sicher mal auf sie zurückgreifen.

[atilla]

Hallo,

dann das Change Ereignis so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 1 Then
   If Target.Offset(, -4) <> Target.Offset(, -3) Then
     If Target.Text = "closed" Then
       MsgBox "Splate B nicht korrekt!"
       Application.EnableEvents = False
       Application.Undo
       Application.EnableEvents = True
     End If
   End If
 End If
End Sub