Fehler in UF-Code
25.04.2007 00:28:00
mumpel
Der folgende Code funktioniert in einer meiner Arbeitsmappen. Habe jetzt testweise die selbe Userform in einer neuen Arbeitsmappe eingefügt. Und da bekomme ich komischerweise eine Fehlermeldung. Warum funktioniert es in einer Arbeitsmappe, in der anderen aber nicht? Kann es nicht erklären.
Code, der Fehler soll in Zeile 6 sein:
Private Function GetTextBox21Value() As String
Dim iposit As Integer
Dim iHH As Integer
Dim iMM As Integer
Dim value As String
iposit = InStr(TextBox21.value, ":")
iHH = Val(Left(TextBox21.value, iposit - 1)) ' Hier soll der Fehler sein
iMM = Val(Mid(TextBox21.value, iposit + 1))
value = iHH + IIf(iMM
Hier die Mappe, in der es nicht funktioniert: https://www.herber.de/bbs/user/42006.xls
Danke und Gruß,
Rene