'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

'bei jedem Zellwechsel...

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   Setze_zeit Target
End Sub


'mache dies...

 Public Sub Setze_zeit(r As Range)
  ' nur in der ersten Spalte!
     Spalte = 1    
  
  'prüfe auf Spalte, sonst verlasse die Prozedur
     If r.Column <> Spalte Then Exit Sub

  'trage dieZeit nur dann automatisch ein,wenn
  'nur eine EINZIGE Zelle markiert ist! 
     If r.Count = 1 Then 

  'und auch nur dann, wenn die Zelle bisher LEER war
  'beide if Teile NICHT mit AND verbinden!
  'bei r.count>1 ist wohl r.value undefiniert--> Fehler
       If r.Value = leer Then r.Value = Now() 
     End If
 End Sub

'Spalte 1jetzt noch als Zeitformat hh:mm:ss definieren
'in ein Feld der ersten Spalte springen und huch, die Zeit steht da
'wievon Geisterhand eingetragen