ich versuche in VBA folgendes zu lösen:
Wenn der Wert einer Zelle (D8) >11 aber
Private Sub CommandButton1_Click()
If Worksheets("Tabelle1").Range("D8") >11 & Worksheets("Tabelle1").Range("D8")
Gruß Andre
Private Sub CommandButton1_Click()
If Worksheets("Tabelle1").Range("D8") >11 & Worksheets("Tabelle1").Range("D8")
Gruß Andre
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If .Cells(8, 4) > 11 And .Cells(8, 4)
dann wird direkt nach der Eingabe schon subtrahiert
Gruß Matthias