Wenn in Checkbox?

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

wie sag ich’s meiner Checkbox?

Die Funktion dieser Checkbox ist mir klar:

Private Sub CheckBox4_Click()
Range(„c37“) = 0
If CheckBox4 = True Then Range(„c37“) = Range(„c35“) + Range(„c36“)
End Sub

Aber wie sage ich ihm, daß er in c37 einen Wert eintragen soll,
der abhängig ist von D30 z.B.

Konkret: In D30 steht 135, dann soll er in c37 den Wert 100 eintragen
In D30 steht 150, dann soll er in c37 den Wert 200 eintragen
In D30 steht nix, dann soll er in c37 Nichts ("") eintragen.

Geht das?

Kann mir jmand behilflich sein?

Gruß und danke

Rolf

2

Hallo Rolf,

Private Sub CheckBox4_Click()
If CheckBox4 = True Then
if (range(„D30“) = 135) then Range(„c37“) = Range(„c35“) + 20
if (range(„D30“) = 150) then Range(„c37“) = 200
if (range(„D30“) = „“) then Range(„c37“) = „“
end if
End Sub

also einfach je nach Größe von d30 den Wert unterschiedlich füllen. Je nach dem was du vorhast sollte ein Besipiel zutreffen. Ggfs. solltest du die „vielen“ If gegen ein Case austauschen das dann mit
case else : Range(„c37“) = „“
enden könnte.

mfg

Dirk.Pegasus

3

Hallo Dirk,

genau das war’s. Vielen Dank.

Gruß

Rolf

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]