Re: Nochmal Ramses/Kontrollkästchen
26.02.2003 23:05:11
Ramses
Hallo Markus,eine andere Variante welche du verwenden kannst. Dann reicht eine Textbox:
If Me.CheckBox1 = True
If Me.Textbox1 = "" Then
Me.Textbox1 = Worksheets("Tabelle1").Range("A1") * 5
Else
Me.Textbox1 = cDbl(Me.Textbox1) + Worksheets("Tabelle1").Range("A1") * 5
End If
End If
Damit wird die Textbox geprüft. Ist sie leer, wird der Wert einfach berechnet und hineingeschrieben. Wenn ein Wert darin ist, hier allerdings ohne Prüfung ob dies ein korrekter Wert ist, wird der Wert umgewandelt ( cDbl()) weil eine Textbox immer nur einen String zurückgibt, der nicht zum rechnen verwendet werden kann, und anschliessen mit deinem anderen Wert addiert und in die Textbox zurückgeschrieben.
Alternativ kannst du den Wert auch in einer Public Variablen ablegen und er steht dir dort zur Verfügung.
Private Sub Userform_Initialize()
Public myVal as Double
If Me.Checkbox1 = True
If IsEmpty(myVal) or myVal = "" or myVal = 0 Then
myVal = Worksheets("Tabelle1").Range("A1") * 5
Else
myVal = Worksheets("Tabelle1").Range("A1") * 5
End If
End If
Me.Textbox1 = myVal
Gruss Rainer