Validation.Add bzw. ~.Modify klappt nicht
13.12.2005 11:14:29
Peter
auch das Lesen von ca. 20 Beiträgen hier hat mich noch nicht weitergebracht:
für meine Gültigkeitslisten verwende ich benannte Bereiche in anderen Tabellenblättern der gleichen Arbeitsmappe.
Im Tabellenblatt, in dem die Gültigkeitsprüfung durchgeführt wird, ist standardmäßig (ohne VBA) als Liste "=dyn_benutzer" eingegeben. Das ist ein dynamischer Bereich, der mit BEREICH.VERSCHIEBEN etc. erstellt ist.
Das funktioniert alles.
Über einen Commandbutton möchte ich für die jeweils aktive Zelle die Gültigkeit auf einen anderen benannten Bereich switchen.
Ausschnitt aus dem Code:
eingabe.Unprotect Password:="xxx"
If Not Intersect(ziel, eingabe.Range("dyn_tn")) Is Nothing Then
ziel.Validation.Modify Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=dyn_xm"
Else
MsgBox "Der Zellzeiger muss in der 1. Spalte stehen."
End If
eingabe.Protect Password:="xxx", UserInterfaceOnly:=True
Der Code läuft ohne Fehlermeldung ab, nur die Gültigkeitsliste wird nicht geändert. Ich habe es auch schon mit Löschen und Neusetzen der Validation-Eigenschaft probiert, oder die Formula1 aus einer Stringvariablen genommen, es will einfach nicht.
Vielen Dank für jede Hilfe.
Gruß
Peter