Versuchen Sie es so kurz Ereignismakro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Range, I As Range, cell As Range
Set B = Range("B1:B10")
Set I = Intersect(Target, B)
If I Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each cell In I
If cell.Value > 0 Then
cell.Offset(0, -1).Value = Now()
Else
cell.Offset(0, -1).Value = 0
End If
Next cell
Application.EnableEvents = True
End Sub
Da es sich um Arbeitsblattcode handelt, ist die Installation sehr einfach und die Verwendung automatisch:
- Klicken Sie mit der rechten Maustaste auf den Registerkartennamen am unteren Rand des Excel-Fensters
- Wählen Sie Code anzeigen. Dadurch wird ein VBE-Fenster geöffnet
- Fügen Sie das Material ein und schließen Sie das VBE-Fenster
Wenn Sie Bedenken haben, versuchen Sie es zunächst auf einem Testarbeitsblatt.
Wenn Sie die Arbeitsmappe speichern, wird das Makro mit dieser gespeichert.
Wenn Sie eine Excel-Version später als 2003 verwenden, müssen Sie diese speichern
die Datei als .xlsm anstatt als .xlsx
So entfernen Sie das Makro:
- Öffnen Sie die VBE-Fenster wie oben
- Löschen Sie den Code
- Schließen Sie das VBE-Fenster
Weitere Informationen zu Makros im Allgemeinen finden Sie unter:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
und
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Weitere Informationen zu Ereignismakros (Arbeitsblattcode) finden Sie unter:
http://www.mvps.org/dmcritchie/excel/event.htm
Makros müssen aktiviert sein, damit dies funktioniert!