Makro Zeiteingabe ohne Doppelpunkt
29.08.2017 09:33:47
Sylvia
mein Makro Zeiteingabe ohne Doppelpunkt spinnt, d.h. ich bekomme immer wieder eine Fehlermeldung, obwohl das Makro scheinbar trotzdem tut was es soll, aber die Fehlermeldung nervt etwas. Habe eine neue Excelversion, kann es damit zusammenhängen und kann mir jemand sagen was muss ich ändern muss?
LG
Silvi
"Laufzeitfehler 1004: die Methode ChangeLink Workbook ist fehlgeschlagen"
es hängt dann bei: "If Target.Count = 1 And Not Intersect, Range("d138:e147")"
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("d138:e147")) Is Nothing Then
Formatierung (Target.Address(False, False))
End If
End Sub
' Sub Formatierung(Zelle)
If ActiveSheet.Name "Ges" Then
Dim s%, m%
With Range(Zelle)
If .Value = "" Then Exit Sub
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 '