Typenunverträglichkeit
21.06.2020 17:47:58
Mike
Ich möchte eine Combobox befüllen mit Einträgen im Format 001/2020, 099/2019 a, 888/1980 II usw.
Leider kommt es beim Change zu einer Fehlermeldung 13 (Typenunverträglichkeit).
Und zwar genau in diesem Step:
Dim objCell As Range
Set objCell = .Find(What:=CDbl(Nr.Value), After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole)
Mit einfachen Zahlen funktioniert es. Somit muss es am / liegen...mehr fällt mir nicht ein ;-(
Hat jemand eine Idee von Euch?
Vielen Dank