Erst einmal erkläre ich mein Szenario:
Ich habe eine Zelle, in dem ein bestimmter Gerätetyp steht. Anhand diesen Gerätetyps soll in einer anderen Zelle eine Liste mit allen bei diesem spezifischen Gerät verfügbaren Anschlüssen verfügbar werden. Dies realisiere ich so, dass ich für jeden Gerätetyp eine Tabelle mit gleichem Namen und mit allen verfügbaren Anschlüssen erstelle und in der besagten Zelle dann bei der Datenüberprüfung die Formel "=INDIREKT("Zelle mit dem Gerätetyp und Name der Tabelle") einfüge. Das funktioniert wunderbar, wenn ich diese Formel von Hand eingebe. Wenn ich dabei ein Marko laufen lasse, gibt er mir folgenden VBA-Code aus:
Range("B23:E23").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIREKT(Daten_LL!$AA$2)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Soweit so gut, nur leider kommt beim Ausführen dieses Codes immer "Anwendungs- oder objektdefinierter Fehler" und beim Debug markiert er immer den Befehl "Add Type".Hier komme ich leider gar nicht weiter, mich verwirrt einfach, dass der von Excel erzeugte Code selbst nicht funktioniert...
Hier wäre ich über Hilfe sehr dankbar :-)
Vielen Dank und Grüße