AW: Datum & uhrzeit bei aktivieren zelle
22.02.2007 20:14:19
Rupert
Hallo Peter,
Ich habe doch eine Möglichkeit gefunden das man es deaktivieren kann, ist vielleicht nicht schön, funktioniert aber.
jedenfalls danke für deine tolle hilfe.
ich hab den code angehängt
gruss rupert
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G1").Value = "OFF" Then
Exit Sub
ElseIf Target.Column = 1 Then
If Target.Value = "" Then
Target.Value = Date
Else
Cells(Target.Row, Target.Column + 3).Select
MsgBox "Bitte das Datum nicht ändern - Danke.", _
48, " Hinweis für " & Application.UserName
End If
ElseIf Target.Column = 2 Then
If Target.Value = "" Then
Target.Value = Format(Time, "hh:mm:ss")
Else
Cells(Target.Row, Target.Column + 2).Select
MsgBox "Bitte die Uhrzeit nicht ändern - Danke.", _
48, " Hinweis für " & Application.UserName
End If
ElseIf Target.Column = 3 Then
If Target.Value = "" Then
Target.Value = Format(Time, "hh:mm:ss")
Else
Cells(Target.Row, Target.Column + 1).Select
MsgBox "Bitte die Uhrzeit nicht ändern - Danke.", _
48, " Hinweis für " & Application.UserName
End If
End If
End Sub