Ratlos mit Checkbox

20/11/2007 - 12:31 von Juergen Bohl | Report spam
Hallo zusammen,

ich habe folgendes Problem:

Es wird in E29 ein Wert (Heizöl) manuell eingegeben. Danach errechnet sich
adequad dazu in E28 der Wert (hier für Flüssiggas).

So, jetzt habe ich eine Checkbox, welche folgende Funktion ausführen soll:

Checkbox_ON= Wert soll aus E28 und G28 in die Zellen E29 und G29
geschrieben werden.

Checkbox_OFF=Wert soll wieder ursprünglich ausgegeben werden. Also
Ursprungszustand.

Screenshots hier:

OFF:
http://www.kb007.gmxhome.de/link/Checkbox_off.jpg

ON:
http://www.kb007.gmxhome.de/link/Checkbox_on.jpg


Wie sollte man die Lösung angehen?

Gruss, Juergen
 

Lesen sie die antworten

#1 Melanie Breden
20/11/2007 - 14:37 | Warnen spam
Hallo Jürgen,

"Juergen Bohl" schrieb:
Es wird in E29 ein Wert (Heizöl) manuell eingegeben. Danach errechnet sich
adequad dazu in E28 der Wert (hier für Flüssiggas).

So, jetzt habe ich eine Checkbox, welche folgende Funktion ausführen soll:

Checkbox_ON= Wert soll aus E28 und G28 in die Zellen E29 und G29
geschrieben werden.

Checkbox_OFF=Wert soll wieder ursprünglich ausgegeben werden. Also
Ursprungszustand.



wenn ich das richtig verstanden habe, sind in E28:G28 Formeln in den Zellen
und E29:G29 sollen je nach Wert der CheckBox das Formelergebnis, bzw.
einen zuvor eingegebenen festen Wert anzeigen?

Erstelle eine CheckBox aus der Steuerelement-Toolbox auf dem Tabellenblatt und
hinterlege im Codemodul der Tabelle folgende Prozedur der CheckBox:

Private Sub CheckBox1_Click()
Dim dblDummy As Variant

If CheckBox1.Value = True Then
' Feste Werte merken
dblDummy = Range("E29:G29").Value
' Zellen austauschen
Range("E29:G29").Formula = Range("E28:G28").Formula
With Range("E28:G28")
.Value = dblDummy
' Werte in Zeile 28 ausblenden
.NumberFormat = ";;;"
End With
Else
dblDummy = Range("E28:G28")
With Range("E28:G28")
.Formula = Range("E29:G29").Formula
' Werte in Zeile 28 anzeigen
.NumberFormat = "General"
End With
Range("E29:G29").Value = dblDummy
End If
End Sub

Bei Aktivierung der CheckBox werden die Formeln mit den Werten ausgetauscht
und Zeile 28 ausgeblendet. Bei Deaktivierung wird in die andere Richtung getauscht.

Das Problem was ich jedoch sehe ist, dass der Benutzer ja jederzeit die Werte
in Zeile 29 àndern kann, und wenn dort gerade eine Formel steht, wàre die
dann auch weg


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ähnliche fragen