Zellbezug in Zellvalidierung
15.08.2005 09:26:04
Uli
ich möchte eine Zellvalidierung erstellen, die ungefähr folgendermaßen aussehen soll (es soll für eine größere Range auf numerische Werte geprüft werden):
Sub Zellvalidierung()
With Range(Cells(Zeile_Start,Spalte_Start),Cells(Zeile_Ende,Spalte_Ende)).Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ISNUMBER(XXXXXXX)=TRUE"
.IgnoreBlank = True
.ErrorTitle = "Fehlerhafte Eingabe"
.ErrorMessage = "Bitte geben Sie nur numerische Werte ein!"
.ShowError = True
End With
End Sub
Ich weiß allerdings nicht, was ich für XXXXXXXX einsetzen soll, damit die Validierung sich auf die jeweilige Zelle bezieht. Als Workaround könnte ich natürlich über jede einzelne Zelle der Matrix loopen und die jeweilige Koordinate in die Validierung schreiben - allerdings kommt das aus Performancegesichtspunkten nicht in Frage. Gibt es eine Möglichkeit, der Validierung zu sagen, dass sich die ISNUMBER-Abfrage immer auf die jeweilige Zelle bezieht?
Vielen Dank im Voraus!
Uli