Zahl um 1 erhöhen

[dertommy]

Hallo!

Ich möchte gerne folgendes:

Wenn sich in der Spalte D etwas ändern (sprich, ich drücke die Enter Taste), soll, wenn in der Zelle O1 nichts stehlt, die Zahl 1 hineingeschrieben werden.
Wenn sich nun nochmals etwas in der Spalte D ändert (sprich, es wird wieder die Enter Taste gedrückt), soll dann in der Zellle O1 die Zahl 2 steht usw..

Ich hoffe, dass mir jemand helfen kann.

LG
Thomas

[volti]

Hallo Thomas,

meinst Du so etwas:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Dies ins Tabellenmodul
  If Target.Column = 4 Then
   If Range("O1").Value = "" Then
      Range("O1").Value = 1
   Else
     Range("O1").Value = Range("O1").Value + 1
   End If
  
  End If
End Sub

____________________

viele Grüße aus Freigericht
Karl-Heinz

[dertommy]

Perfekt, danke sehr.

LG