Laufzeitfehler 13 - Typen unverträglich / Uhrzeit
18.12.2004 18:53:51
Ado
Habe in einer Stundentabelle folgendes Makro verwendet, welches den Doppelpunkt als Eingabe automatisieren soll:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim s%, m%
If Target.Column = 20 Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
ActiveSheet.Unprotect ("xxx")
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _
InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
ActiveSheet.Protect ("xxx")
End With
End Sub
Nun erhalte ich einen "Laufzeitfehler'13'-Typen unverträglich" bei der Zifferneingabe. Der Debugger markiert folgende Spalte unabhängig der Zahlenlänge (also egal ob ein- oder mehrstellig):
s = Left(.Value, Len(.Value) - 2)
Ich finde keinen Fehler in diesem Makro und offensichtlich wird es auch von etlichen Usern benutzt. Vielleicht kann mir hier jemand bei der Analyse behilflich sein.
Vielen Dank vorab :-)
Ado