Laufzeitfehler13 - Typen unverträglich
10.08.2006 18:37:06
selma
langsam verzweifle ich. Das Ding hat bisher wunderbar funktioniert..
Nun kommt die Meldung "Laufzeitfehler: 13 - Typen unverträglich.
Der Debugger setzt mich auf die Zeile IF Not IsNumeric.
Ich habe in der Tabelle stehen 0,195 (= 19,5%)
Nachfolgend der Code:
Private Sub textbox25_AfterUpdate()
On Error Resume Next
If Not IsNumeric(CDbl(Me.textbox25)) Then
If Me.textbox25 = "" Then Exit Sub
Cancel = True
Exit Sub
End If
On Error GoTo 0
'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
Select Case CDbl(Me.textbox25.Value)
Case Is <= 0.01
Me.textbox25.Text = Format(CDbl(Me.textbox25) * 100, "##,##0.00") & " %"
Case Is <= 0.1
Me.textbox25.Text = Format(CDbl(Me.textbox25) * 10, "##,##0.00") & " %"
Case Is <= 1
Me.textbox25.Text = Format(CDbl(Me.textbox25) * 1, "##,##0.00") & " %"
Case Is <= 100
Me.textbox25.Text = Format(CDbl(Me.textbox25), "##,##0.00") & " %"
Case Is > 100
MsgBox "Unzulässiger Prozentwert"
Me.textbox25.Text = Format(CDbl(1), "##,##0.00") & " %"
End Select
Range("b350") = (Left(Me.textbox25.Value, Len(Me.textbox25.Value) - 2) * 1) / 100
End Sub
Was ist hier falsch?
Für die Hilfe bereits im Voraus DANKE
Viele Grüsse
selma