<strong>Folgendes Problem:
</strong>Habe eine CheckBox zum Aktivieren/Deaktivieren von einer Rabattmöglichkeit hinzugefügt. Jedoch wird der Wert beim Aktivieren/Deaktivieren der Checkbox nicht automatisch überwacht und neuberechnet.
Ich möchte also dass automatisch der Rabatt in Teilsummen und Endsummen hineinberechnet wird, wenn das Kästchen betätigt wird.
Problem: Berechnung der Summen ist etwas komplexer und in einem anderen Modul.
Weiß wer, wie man das lösen könnte?
Sub
CheckBox1_Click()
If
CheckBox1.Value =
True
Then
Cells(4, 5).Value =
"MIT Rabatt"
Columns(
"H:H"
).
Select
Selection.EntireColumn.Hidden =
False
Columns(
"D:D"
).ColumnWidth = 4
Columns(
"F:F"
).ColumnWidth = 6
Columns(
"G:G"
).ColumnWidth = 9
Else
Cells(4, 5).Value =
"OHNE Rabatt"
Columns(
"H:H"
).
Select
Selection.EntireColumn.Hidden =
True
Columns(
"D:D"
).ColumnWidth = 5
Columns(
"F:F"
).ColumnWidth = 9
Columns(
"G:G"
).ColumnWidth = 13
End
If
End
Sub