|
Hey Pascal,
und das kriegst du nicht allein hin? Selbst mit kaum VBA-Kenntnissen sollte das machbar sein. Das ist simpelstes Hochzählen. Im Normalfall macht man das mit einer Variablen. Der Einfachheit halber und zum besseren Verständnis habe ich mal auf eine solche verzichtet. Hier wird also der Zellinhalt direkt aktualisiert. Du benötigst nur eine IF-Abfrage, die den Zähler nach 70 wieder auf 1 zurücksetzt. Der Code dafür könnte z.B. so aussehen:
Sub CommandButton3_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
Wenn du das Hochzählen und die Wenn-Bedingung begriffen hast, kannst du dich gern dem nächsten Thema widmen.
Übrigens: Englisch müsste man können!  Mit Row ist die Zeile gemeint. Die Spalte heißt Column. Aber das nur am Rande.
Liebe Grüße
Mr. K.
|