Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'**************************************************
'* H. Ziplies *
'* 06.04.12 *
'* erstellt von HajoZiplies@web.de Spamadresse *
'*
http://Hajo-Excel.de/ *
'**************************************************
Dim RaBereich As Range ' Variable für Bereich
Dim RaZelle As Range ' Variable für Zelle
' Bereich der Wirksamkeit
Set RaBereich = Range("A1:A10, C1:C10")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle = Time
RaZelle.NumberFormat = "hh:mm:ss"
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing ' Variable leeren
End Sub