Code erweitern
05.04.2022 12:30:34
Pascal
Habe einen Code, den ich erweitern möchte. Scheitere jedoch kläglich daran. Hoffe ihr könnt mir helfen:
Private Sub CommandButton10_Click()
If Val(Cells(ActiveCell.Row, 9).Value) = 0 Then Cells(ActiveCell.Row, 9).Value = 1
If Cells(ActiveCell.Row, 10) = 70 Then
Cells(ActiveCell.Row, 9).Value = Cells(ActiveCell.Row, 9) + 1
Cells(ActiveCell.Row, 10).Value = 1
Else
Cells(ActiveCell.Row, 10).Value = Cells(ActiveCell.Row, 10).Value + 1
End If
End Sub
Bis jetzt macht der Code genau das, was er sollte. Nur hätte ich nun gerne dass der Code merkt, dass in Spalte J (Row 10) bereits ein Wert existiert und dieser Wert dann +1 addiert wird, wenn ich den CommandButton anklicke. Bis jetzt schreibt es mir immer nur den Wert 1 rein, egal in welcher Zeile ich mich in der Spalte J (Row 10) befinde. Es sollten aber die Werte 1 bis hoch zu 70 hinterlegt werden, wenn ich den CommandButton anklicke. Das macht es bis jetzt aber nur in der aktiven Zelle so und nicht in der ganzen Spalte J (Row 10)Habt ihr da eine Idee dazu?