06.10.2017, 09:45
Hallo zusammen,
folgendes Problem liegt bei mir vor. Ich habe eine Spalte, in der die Formel
=WENN(ZÄHLENWENN(A:A;A5)>1;"x";"")
steht. Wenn hier ein "x" zurückgeben wird, soll zwei Spalten weiter ein Datumsstempel gesetzt werden.
Dafür wird ein VBA genutzt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = "x" Then Cells(Target.Row, Target.Column + 1) = Now
End Sub
Die Geschichte funktioniert nicht. Vielleicht kann mir jemand helfen das Problem auf welchem
Weg auch immer zu lösen?
folgendes Problem liegt bei mir vor. Ich habe eine Spalte, in der die Formel
=WENN(ZÄHLENWENN(A:A;A5)>1;"x";"")
steht. Wenn hier ein "x" zurückgeben wird, soll zwei Spalten weiter ein Datumsstempel gesetzt werden.
Dafür wird ein VBA genutzt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = "x" Then Cells(Target.Row, Target.Column + 1) = Now
End Sub
Die Geschichte funktioniert nicht. Vielleicht kann mir jemand helfen das Problem auf welchem
Weg auch immer zu lösen?