Programmieren in Excel (VBA) Hilfe gesucht?

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

Vielleicht so:

Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, Range("C2:C11")) Is Nothing Then
  ActiveCell.Value = ActiveCell.Value + 1
  ActiveCell.Select
End If
End Sub
Unter der 4 und der 2 sollte dann noch eine Schaltfläche vorhanden sein.

Das verstehe ich nicht.

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)