Zeiteingabe ohne Doppelpunkt, noch ne Frage
12.10.2004 13:58:32
Silvie
hab doch noch ne Frage zum Makro, wenn ich den Bereich F6:G60 wieder löschen will, bekomme ich eine Fehlermeldung (Laufzeitfehler 13 Typen unverträglich), lösche ich die Zellen einzeln habe ich kein Problem. Wie kann ich das die Fehlermeldung verhindern?
Gruß
Silvie
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("F6:G60")) Is Nothing Then
Formatierung (Target.Address(False, False))
End If
End Sub
Sub Formatierung(Zelle)
If ActiveSheet.Name "Artikelstamm" Then
Dim s%, m%
With Range(Zelle)
If .Value = "" Then Exit Sub 'hier kommt die Fehlermeldung
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
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
End With
End If
End Sub