---

Hallo ihr Tabellenkalkulatoren

kann mir jemand sagen, ob ein Automatismus der Art:

Wenn in dieser Zelle etwas eingetragen wird, soll das Datum hinterlegt werden (z.B. in der nächsten Spalte); das Ganze soll natürlich nur passieren, wenn die Zelle tatsächlich geändert wird! Nicht, dass man am nächsten Tag das Arbeitsblatt öffnet und hinter allen Zellen, die nicht leer sind das aktuelle Datum steht

also abstrakt:
="aktuelles Datum", wenn "Zelle xy" geändert wurde

Vielen Dank für eure Vorschläge

Basti

------------------

...und jetzt: Werbung!
Weiß gewinnt!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sollte mit Makro über Worksheet_Change möglich sein. Diese Prozedur wird bei jeder Änderung durchlaufen. Wenn Du dann den Bereich "abfrägst", Deine Zeile ermittelst und dann in das entsprechende Datumsfeld den Eintrag machst, sollte das funktionieren

Axel

Irgendwie so etwas (ungetestet und sicher so nicht lauffähig  ):

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Dim Change As Range
    Set Change = Range(Cells(4, 2), Cells(3000, 2))
   
    If Not Intersect(Target, Change) Is Nothing Then
        If Cells(Target.Row(), 2).Value <> "" Then
            Cells(Target.Row(), 3).Select
            ActiveCell.value = date
        End If
    End If
End Sub

---

[Diese Nachricht wurde von Axel.Strasser am 25. Okt. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Axel & Überweisung.

mal sehen, ob ich das umsetzten kann. Aber jetzt hab ich Suchbegriffe 

...sehe gerade, dass Du schon ein Makro-"Layout" eingestellt hast - Danke   

Basti

------------------
       
...und jetzt: Werbung!
Weiß gewinnt!

EDIT: Das funktioniert! Gut, dass ich das selbst nie hingekriegt hätte

[Diese Nachricht wurde von Pro_Blem am 25. Okt. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP