Re: noch ein Problem Worksheet_Change !!
27.02.2003 20:34:43
phillip
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) = 11 Then
Application.EnableEvents = False
[D4] = Target.Value
Target.Value = ""
Application.EnableEvents = True
End If
If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [I7] = "" And Target.Value <> "" Then
[I7] = Format(Now, "hh:mm:ss")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [I7] <> "" Then
[I10] = Format(Now, "hh:mm:ss")
End If
.EnableEvents = True
End With
If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [F7] = "" And Target.Value <> "" Then
[F7] = Format(Now, "hh")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [F7] <> "" Then
[F10] = Format(Now, "hh")
End If
.EnableEvents = True
End With
If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [F8] = "" And Target.Value <> "" Then
[F8] = Format(Now, "mm")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [F8] <> "" Then
[F11] = Format(Now, "mm")
End If
.EnableEvents = True
End With
Range("H3").Select
End Sub