Comboboxes = Array("NewContinent", "NewLand", "NewRegion", NewWinegrower, NewTaste, NewVolume, NewQuality, NewKind, NewGrape, NewRegal, NewShelf, NewBox)
Da fehlen wohl die "
Range(Categories(i))
Die von dir genannte Fehlermeldung kommt, wenn der benannte Bereich (also z.B. "NewContinent", oder "NewLand") nicht existiert.
Du solltest also entweder sicherstellen das diese existieren, oder etwas in folgender Art implementieren:
Dim rng As Excel.Range
On Error Resume Next
Set rng = Nothing
Set rng = Range(Categories(i))
On Error GoTo 0
If Not rng Is Nothing Then
'...
End If
PS: Sieh dir bei der Gelegenheit in der Hilfe mal LBound und UBound an .. ganz nützlich wenn man mit Arrays arbeitet.
|