|
Hallo Marco,
vielen Dank für deine Mühe.
Der Punkt ist, dass die ersten vier Anweisungen tadellos funktionieren. Damit arbeite ich seit Jahren. Die letzten beiden Anweisungen sind exakt gleich gestrickt, nur, dass sie eine andere Spalte ansprechen. Von daher ist es mir ein Rätsel, warum es hier zu einem Absturz kommt (übrigens NACHDEM der Wert eingetragen worden ist).
Bis auf Weiteres habe ich den Teil jetzt wieder entfernt und arbeite fehlerfrei mit:
Private Sub Worksheet_Change(ByVal Target As Range)
Set myrange = Range("B1:K10000")
Dim R As Long
R = ActiveCell.Row
If myrange.Cells(R, 1) <> "" And myrange.Cells(R, 5) = "" Then myrange.Cells(R, 5).Value = CDate(Format(Now, "dd.mm.yy hh:mm"))
If myrange.Cells(R, 1) = "A" And myrange.Cells(R, 4) = "" Then myrange.Cells(R, 4).Value = "offen"
If myrange.Cells(R - 1, 1) <> "" And myrange.Cells(R - 1, 5) = "" Then myrange.Cells(R - 1, 5).Value = CDate(Format(Now, "dd.mm.yy hh:mm"))
If myrange.Cells(R - 1, 1) = "A" And myrange.Cells(R - 1, 4) = "" Then myrange.Cells(R - 1, 4).Value = "offen"
End Sub
|