✔ Excel - bei WENN-Anweisung keine Änderung des Zelleninhalts

[sTEk]

So...nach etwas rumprobieren hab ich nun eine Lösung gefunden:

        Sheets("Tabelle1").Select 
        For i = 6 To 40
                If Cells(i, 2) = Date Then
                  Cells(i, 4) = Time
                End If
        Next i
        ActiveWorkbook.Save

Beim Auslesen von lz in Deinem Bsp. hat er mir immer einen falschen Wert gebracht - er kam wohl nicht damit klar, dass ich in der 4.Zeile Spalte A & B verbunden habe.
Außerdem musste die Exit For - Anweisung raus und dafür ein Next i rein.

Aber trotzdem Danke - ich hätte sonst nen Stück weit länger benötigt, um auf eine geeignete Lösung zu kommen.