Hallo Johann,
ich verstehe dich so: wenn einer der beiden Buttons (egal welcher) geklickt wird, soll X = Y-Z berechnet werden. Wenn beide kurz nacheinander geklickt werden, wiederum egal in welcher Reihenfolge, soll X = Y-2Z berechnet werden. Dieses kurz hintereinander habe ich auf eine Sekunde festgelegt.
Private t1, t2
Private Sub CommandButton1_Click()
If t2 + 1 < Timer Then
Cells(1, 1) = Cells(2, 1) - Cells(3, 1)
Else
Cells(1, 1) = Cells(2, 1) - 2 * Cells(3, 1)
End If
t1 = Timer
End Sub
Private Sub CommandButton2_Click()
If t1 + 1 < Timer Then
Cells(1, 1) = Cells(2, 1) - Cells(3, 1)
Else
Cells(1, 1) = Cells(2, 1) - 2 * Cells(3, 1)
End If
t2 = Timer
End Sub
Wozu braucht man so etwas?
Gruß
Holger
|