Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hi,

ich habe eine Tabelle die ständig erweitert wird.
In einer Spalte wird irgendwann "Installed" eingetragen. Wenn das geschieht, soll in einer anderen Spalte in der gleichen Zeile das aktuelle Datum eingetragen werden.
Gleiches Spiel nur mit einer Zelle, die das Datum wo anders eintragen soll, sobald sie nicht mehr leer ist.

Das ganze konnte ich auch schon realisieren:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    Dim intRow As Integer
    For intRow = 170 To 180
   
    If Cells(intRow, 17).Text = "Installed" Or Cells(intRow, 17).Text = "Cancelled" Then
        Cells(intRow, 46).Value = Format(Date, "YYYY-MM-DD")
    End If
       
    If Cells(intRow, 1).Text <> "" Then
        Cells(intRow, 43).Value = Format(Date, "YYYY-MM-DD")
       
    End If
    Next intRow
   
   Application.EnableEvents = True

End Sub


Wie man sieht, wird das ganze bisher nur auf die Zeilen 170-180 angewandt.
Mein Problem ist, dass diese Prüfung jede Sekunde gemacht wird. Heißt, lösche ich das Datum, erscheint es direkt wieder.

Zum soll das ganze auf mehrere hundert Zeilen gehen. Mache ich das so wie oben, geht in Excel gar nichts mehr.
Zum anderen wird das Datum immer wieder aktualisiert, weshalb das ganze Morgen schon nicht mehr korrekt ist. Zudem würde ich das Datum auch gern manuell überschreiben können.
Bin nicht so fit in Macros etc und das oben ist nur zusammen gewurschtelt

Jemand ne Idee wie das zu realisieren ist?

das gibts bei mir eine division durch 0, egal ob ich in A was stehen hab, oder nicht.