ich möchte abfragen, ob in einem Blatt 1 ein benannter Bereich mit dem Namen, der auf Blatt 2 in Spalte B steht, existiert und dann eine Dropdown-Liste mit dem Inhalt dieses benannten Bereiches erstellen. Wenn es keinen solchen Bereich gibt, soll die Dropdown-Liste aus dem benannten Bereich "sonst" erstellt werden.
Dazu habe ich mir folgendes gedacht:
Sub setGenehmiger(Zeile)
Dim nam As Name
For Each nam In Worksheets("Blatt1").Names
If nam = "_" & Cells(Zeile, 2) Then
Cells(Zeile, 10).Validation.Modify Type:=xlValidateList, Operator:=xlBetween, Formula1:="=_" & Cells(Zeile, 2)
Else
Cells(Zeile, 10).Validation.Modify Type:=xlValidateList, Operator:=xlBetween, Formula1:="=sonst"
End If
Next
End Sub
Obwohl es in Blatt 1 mehrere benannte Bereiche gibt, durchläuft er die Schleife nicht. Wo liegt der Fehler?
Noch lieber wäre mir, wenn ich abfragen könnte, ob ein benannter Bereich leer ist.
Gruß specke