Gültigkeitsprüfung

Hallo
ich habe mal eine Frage zur Gültigkeitsprüfung.
Eigentlich wurde sie schon auf dem Forum beantwortet
mit der Beispieldatei

Die Datei https://www.herber.de/bbs/user/10353.xls wurde aus Datenschutzgründen gelöscht

im Thread: https://www.herber.de/forum/archiv/476to480/t477906.htm
aber ich kann sie nicht anpassen.
Obwohl ich auch den Workshet geändert habe.
Das seltsame ob wohl ich den Worksheet geändert habe ist die alte Funktion noch 100% ok aber die angepasste funktioniert nicht.
Hier mal meine Datei:

Die Datei https://www.herber.de/bbs/user/34810.xls wurde aus Datenschutzgründen gelöscht

Kann mir mal einer sagen wo ich beim anpassen den Fehler gemacht habe.
Es geht mir vor allem darum das das Feld wenn in dem gelben was eingegeben ist wirklich leer ist bzw. der Eingabesatz dort steht.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich habe mehrere Felder die ich per Drapdown Feld auswählen möchte
eigentlich kein Problem.
Nur wenn ein bestimmtes anderes Feld ausgefüllt ist soll das auswahlfeld ganz leer sein.
( wie auch in der Beispieldatei, der jenige hatte das gleiche vor )
Wenn das bestimmte Feld das bestimmt ob ich was eingeben soll oder nicht leer ist soll der Eingabe satz erscheinen.
Im Prinzip genau so wie in

Die Datei https://www.herber.de/bbs/user/10353.xls wurde aus Datenschutzgründen gelöscht

Die Datei ist schon ok.
Nur wie kann ich die Felder anpassen, wenn ich mehrere habe.
Die gültigkeisprüfung ändern alleine hilft nicht.
Ich muss wohl das Makro ( Worksheet ändern ) da habe ich die Feldbezeichnung b1 z.B. auf b9 geändert. Scheint aber nicht zu gehen, im Gegenteil
obwohl ich das geändert habe geht sogar noch das erste feld obwohl das ja eigentlich nach änderung nciht mehr gehen dürfte.

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.adress = Range("b2").Address Or Target.Address = Range("b10") Then If Target.Value = "" Then Cells(Target.Column - 1, Target.Row).Value = "Bernd" Range("B9").Select Else Cells(Target.Column - 1, Target.Row).FormulaR1C1 = "" End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim xName As String If Not (Application.Intersect(Union([B2], [B10]), Target) Is Nothing) Then Select Case Target.Address Case [B2].Address: xName = "Bernd" Case [B10].Address: xName = "Uwe" End Select If Target.Value = "" Then Target.Offset(-1, 0).Value = xName Else Target.Offset(-1, 0).FormulaR1C1 = "" End If ActiveSheet.Range("B9").Select End If End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gültigkeitsprüfung

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread