Hallo nochmal!
Wie könnte ich hier die +1 variabel bekommen, das bedeutet auch negativ -1. Es soll aus einer Zelle ausgelesen werden.
Private Sub RundePlus1F1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveCell.Activate
Me.Range("G5").Value = Me.Range("G5").Value + 1
End Sub
Hintergrund: Zwei Buttons, eine Zelle: Der eine Button soll die Zahl x addieren und der andere die Zahl X subtrahieren.
Danke für die Hilfe! Tiede |