Nochmal Ramses/Kontrollkästchen

Forumthread: Nochmal Ramses/Kontrollkästchen

26.02.2003 22:46:21

Markus

Hallo Rainer

HAbe mit meinem Kontrollkästchen doch noch ein Prob. Und zwar habe ich nicht bedacht das ich ja nun mehrere Checkboxen brauche und somit auch gleichviel Textboxen..... Das wäre ja noch vertretbar das ich dafür jedesmal so ein Ding anlege, aber wie rechne ich die einzelnen Textfelder dann zusammen?? Gibt es da etwa auch nochn Trick?

Gruß und nochmals Danke
MArkus

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Nochmal Ramses/Kontrollkästchen

26.02.2003 23:05:11

Ramses
Re: Nochmal Ramses/Kontrollkästchen

26.02.2003 23:12:39

Markus
Für den Dicken .... :-)

26.02.2003 23:16:59

Ramses

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

Re: Nochmal Ramses/Kontrollkästchen

26.02.2003 23:12:39

Markus

Hallo Rainer

Nochmals vielen Dank für deine Mühe!!!!

Mit deiner Hilfe kann ich morgen im Dienst wieder den Dicken machen ;-)

Gruß Markus

Für den Dicken .... :-)

26.02.2003 23:16:59

Ramses

Hallo Markus,

da ist ein kleiner Fehler im zweiten Script:

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 = myVal + Worksheets("Tabelle1").Range("A1") * 5
End If
End If
Me.Textbox1 = myVal

Nu stimmts....

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Forumthread: Nochmal Ramses/Kontrollkästchen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread