---

Hallo Forum,
ihr seid mein letzte Chance.
Ich fülle die Liste für die Gültigkeit einer Zelle dynamisch über einen String. Das funktioniert alles sehr gut, solange es sich um eine kleine Auswahl handelt.
Jetzt will ich aber, dass zwischen 30 - 50 Werten ausgewählt werden kann.
Wenn die Liste allerdings mehr als 20 Werte hat, bekomme ich jetzt diesen Fehler:
Laufzeitfehler '-2147417848 (80010108)':
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt.

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=_
                  xlValidAlertStop, Operator:= _
                  xlBetween, Formula1:=auswahl
        .IgnoreBlank = True
        .InCellDropdown = True
        .ErrorTitle = "Eingabefehler"
        .ErrorMessage = "Eingabe falsch"
        .ShowError = True
    End With

zur Info: auswahl ist der String, indem sich die Liste befindet z.B.
auswahl = "1,2,3,4,5,6,7,8,9" usw.

Ich hoffe sehr, jemand von euch hat eine Idee. Dass man bei der Gültigkeit nur eine begrente Auswahl anbieten darf, ist mir nicht bekannt, da ich manuell bereits 50 unterschiedliche Werte ausprobiert habe, und diese alle im Pop-down erscheinen.

Bitte helft mir, ich habe keine Idee mehr  .

Vielen Dank schon mal,
Sunny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sunny,

Das ist ein Bug, der Microsoft auch bekannt ist: http://support.microsoft.com/default.aspx/kb/270589

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten,

danke, das ging aber schnell.
Hab mir das mal durchgelesen, aber ich steige nicht ganz durch, wie ich das für meine Güligkeit anpassen muss.

Verstehst du das und kannst du mir vielleicht da nen Tipp geben?

Wäre super. Ich bastel mal weiter daran rum und falls ich zu einer Lösung komme, schreibe ich diese ins Forum.

Danke nochmals.
Sunny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sunny,

Vielleicht hilft dir diese Erklärung zur frühen und späten Bindung weiter.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Forum, hallo Carsten

bin am verzweifeln, hab es jetzt so versucht, aber immer noch die gleiche Fehlermeldung. Was mache ich denn falsch??

  Dim xclApp As Excel.Application
    Dim xclWbk As Excel.Workbook
    Dim xclSht As Excel.Worksheet
    Dim range As Excel.range
    Dim val As Excel.Validation

    '  Excel referenzieren
    Set xclApp = GetObject(, "Excel.Application")
    '  Workbook referenzieren
    Set xclWbk = xclApp.Workbooks.Item("BrennDB.xls")
    '  6. Tabelle referenzieren
    Set xclSht = xclWbk.Worksheets(6)

    Set range = xclSht.range(Cells(row, col), Cells(80, col))
    range.Select

    Set val = Selection.Validation
    With val
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=auswahl
        .IgnoreBlank = True
        .InCellDropdown = True
        .ErrorTitle = "Eingabefehler"
        .ErrorMessage = "falsche Eingabe"
        .ShowInput = True
        .ShowError = True
    End With

Ich hoffe jemand von euch kann mir helfen.
Ist wirklich deprimierend. Habe auch schon recht viel recherchiert, aber leider ohne Erfolg.
(auswahl ist immer noch der String mit der Auswahlliste)

Grüße Sunny
Vielen Dank schon mal, wäre super wenn jemand meinen Fehler entdeckt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sunny,

An Welcher Stelle tritt der Fehler denn genau auf?

Folgendes funktioniert bei mir ohne Probleme:

Public Sub test()
  Dim xclApp As Excel.Application
    Dim xclWbk As Excel.Workbook
    Dim xclSht As Excel.Worksheet
    Dim range As Excel.range
    Dim val As Excel.Validation

    '  Excel referenzieren
    Set xclApp = GetObject(, "Excel.Application")
    '  Workbook referenzieren
    Set xclWbk = xclApp.Workbooks.Item("BrennDB.xls")
    '  6. Tabelle referenzieren
    Set xclSht = xclWbk.Worksheets(6)
   
row = 1 'Zeilenangabe
col = 1 'Spaltenangabe
   
    Set range = xclSht.range(xclSht.Cells(row, col), xclSht.Cells(80, col))
    range.Select

'    Set val = Selection.Validation <== ????
    Set val = range.Validation 'Geändert
    With val
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Auswahl"  'Auswahl muss in "" stehen / Auswahl ist definiert in der Excel-Tabelle
        .IgnoreBlank = True
        .InCellDropdown = True
        .ErrorTitle = "Eingabefehler"
        .ErrorMessage = "falsche Eingabe"
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Gruß, Carsten

Edit: Welche Excel-Version nutzt du?! Bei Excel 95 kommen teilweise andere Fehlermeldungen als bei den Nachfolge-Versionen.

[Diese Nachricht wurde von Carsten1210 am 11. Jul. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten,

hab es so versucht, wie du vorgeschlagen hast. Leider kommt immer noch die gleiche Fehlermeldung.
Abbruch ist beim .Add

Hinweis:
dim auswahl as String
auswahl = "195/60 R16,195/65 R15,205/55 R16,225/35 R19,225/45 R17,225/50 R16,225/55 R16,235/45 R20,235/55 R17,235/65 R17,245/40 R18,245/45 R17,255/30 R19,255/35 R19,255/40 R18,255/40 R19,255/40 R20,255/45 R17,255/45 R18,255/50 R19,255/55 R18,265/40 R21,265/45 R20,"

Wenn ich das Ganze manuell mache funktioniert es, mit dem Code funktioniert es nur wenn der String kleiner ist.

Hast du noch ne Idee?? Ich benutze Excel 2002

Danke noch mal für deine super Hilfe.
Viele Grüße
Sunny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sunny,

Du greifst ja imer auf die selbe Tabelle zurück. Definiere im Tabellenblatt einen Auswahlbereich mit Namen "Auswahl", der deine Daten enthält. Damit funktioniert es auf jeden Fall. Getest habe ich es mit AutoCAD 2006 / Excel 2000.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten,
die Idee hatte ich auch schon, aber die Daten in auswahl kommen aus einer externen DB, deshalb wollte ich das umgehen.
Aber wenn es keine andere Möglichkeit gibt, muss ich es so machen.
Grüße
Sandra

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sandra,

Das Auswahlfeld für die Gültigkeit der Zelle in Excel kann maximal etwas mehr als 240 Zeichen aufnehmen. Sobald es mehr sind, kommt die Fehlermeldung. Als Trennzeichen musst du hier ein ";" anstatt eines "," nehmen. Das ist in der Hilfe falsch beschrieben.
Wenn du wirklich so viele Werte hast, musst du einen Bereich mit Namen in Excel definieren, wo die Werte drinstehen. Eine andere Lösung sehe ich jetzt nicht. Über diesen Namen kannst du dann die Gültigkeit festlegen (Alternativ reicht auch eine Bereichsangabe).

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten,

vielen Dank, denke ich werde es so machen. Hab gedacht vielleicht geht es auch so.
Na ja schade.

Danke trotzdem, noch einen schönen Tag

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du musst die betreffende Range erst aktivieren:
...
range.Activate()
...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP