checkbox

Forumthread: checkbox

checkbox

30.08.2007 15:02:16

Birgit

Hallo Experten,
ich versuche eine Kapazitäten-Berechnung in eine Userform zu "verpacken". Die zu den in der Checkbox ausgewählten Mitarbeitern gehörenden Kapazitäten sollen addiert und in einer Textbox ausgegeben werden. Ich bekomme es aber nicht hin... Kann bitte jemand helfen?
Gruß Birgit
https://www.herber.de/bbs/user/45537.xls

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: checkbox

30.08.2007 15:16:00

Renee
@renee

30.08.2007 15:32:00

Birgit

AW: checkbox

30.08.2007 15:16:00

Renee

Mazwara Birgit,
Das ist der Code für Deinen OK--Button:


Private Sub cmdOK_Click()
Dim dSum As Double
Dim CB As Object
With UserForm1
For Each CB In .Controls
If TypeName(CB) = "CheckBox" Then
If CB.Value Then dSum = dSum + _
ActiveSheet.Cells(Val(Mid(CB.Name, 9)) + 2, 3).Value
End If
Next CB
.TextBox1 = Format(dSum, "#0.00")
End With
End Sub

Greetz Renee

@renee

30.08.2007 15:32:00

Birgit

Hallo Renee,
herzlichen Dank!
LG Birgit

Forumthread: checkbox

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread