Gültigkeitsprüfung - Keine Fehlermeldung ?!
Kle
ich arbeite grad einem VBA-Code für eine Gültigkeitsprüfung mit einem dynmaischen Bereich.
D.h. ich habe einen Zellbereich, welcher sich aufgrund von Dateneinspielungen stets verändert.
Diesen Bereich lasse ich per VBA einen Namen geben.
Nun möchte ich gern in der Zelle D5 dass nur Begriffe aus diesem Namensbereich verwendet
werden dürfen. Sonst soll eine Fehlermeldung erscheinen. Im Test ohne VBA klappte es.
Dann habe ich es aufgezeichnet und noch etwas angepasst und jetzt gibt es keine Fehlermeldung.
Warum ?!
Hier der Code:
Sub Makro3()
ActiveWorkbook.Names("Test2_Auswahl").RefersToR1C1 = _
"=OFFSET(Tabelle1!R2C1,,,COUNTA(Tabelle1!C1),1)"
Range("D5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Test2_Auswahl"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Auswahlfehler"
.InputMessage = ""
.ErrorMessage = "Bitte nutzen Sie nur einen Eintrag aus der Liste. Vielen Dank !"
.ShowInput = True
.ShowError = True
End With
Range("D5").Select
End Sub
Vielen Dank und Gruß
Kay
Anzeige