Unerklaerlicher Fehler 13

02/02/2010 - 13:14 von Charles Panke | Report spam
Hallo zusammen!

Es gibt einen mir nicht erklaerlichen Fehler.
'Natuerlich' tritt der bei mir nicht auf, aber bei _manchen_ Installationen
offensichtlich doch.

Public Down() As Variant
ReDim Preserve Down(1)

Down(0) = "-1,-1,NUMERISCH" 'geprueft, debug.print gibt das genau so aus

Numerisch = CBool(Left$(Down(0), InStr(Down(0), ","))) 'HIER KNALLTS

Das ergibt error 13 (type mismatch).
Genauer 'Typen unvertraeglich' lt. den mir vorliegenden screenshots.

Ich habe versucht den Fehler nachzustellen, dazu die Regionaleinstellungen
geaendert, die vb6de.dll in meinen System-Ordner gepackt, anderssprachiges
OS probiert.

Der Fehler klappt aber nicht.

Hat jemand vielleicht ne Idee wieso dieser Fehler passiert?

Danke und einen schoenen Tag noch,
-C-H-A-R-L-E-S-
 

Lesen sie die antworten

#1 Dieter Strassner
02/02/2010 - 13:46 | Warnen spam
Hallo Charles,

Es gibt einen mir nicht erklaerlichen Fehler.
'Natuerlich' tritt der bei mir nicht auf, aber bei _manchen_
Installationen offensichtlich doch.

Public Down() As Variant
ReDim Preserve Down(1)

Down(0) = "-1,-1,NUMERISCH" 'geprueft, debug.print gibt das genau so
aus
Numerisch = CBool(Left$(Down(0), InStr(Down(0), ","))) 'HIER KNALLTS

Das ergibt error 13 (type mismatch).
Genauer 'Typen unvertraeglich' lt. den mir vorliegenden screenshots.

Ich habe versucht den Fehler nachzustellen, dazu die
Regionaleinstellungen geaendert, die vb6de.dll in meinen
System-Ordner gepackt, anderssprachiges OS probiert.

Der Fehler klappt aber nicht.

Hat jemand vielleicht ne Idee wieso dieser Fehler passiert?



Also abgesehen von der, so wie finde, wagemutigen Konstruktion, erhàlt
CBool() "-1," statt einem "-1". Evtl. kann das in Verbindung mit der
Dezimalzeichen und/oder einer bestimmten Làndereinstellung den Error
bewirken. Würde so etwas eher etwas aufteilen und Fehlersituationen wie
leeren String und Rückgabe 0 aus Instr() abfangen.

Fehler 13 wird zB bei Cbool("") oder bei CBool("-1,,") gemeldet.


Viele Grüße

Dieter


Rückfragen bitte nur in die Newsgroup!

EDV-Kommunikation Strassner e.K.
68623 Lampertheim
Internet: www.strassner.biz

Ähnliche fragen