Werte in Textbox
27.10.2008 21:50:30
Sebi
ich habe eine Eingabemaske in VBA angelegt, in der es 4 Dropdown Menüs mit einer Auswahl von 1 bis 5 in 0,25er Schritten gibt. Das Problem liegt jetzt darin, dass ich den Durchschnitt der vier Werte berechnen möchte. Leider funktioniert hier irgendetwas nicht, da die Werte nicht korrekt in der Berechnung übernommen werden. z.B. der Wert 1.25 wird in der Berechnung als 125 übernommen. Hoffe es kann mir jemand weiterhelfen und einen Tipp geben. Danke
Grüße Sebi
Private Sub UserForm_Initialize()
'Initialize ID ComboBox.
With fmNomi3.txID1
.RowSource = "Viertel_Noten"
.ListIndex = 0
End With
With fmNomi3.txID2
.RowSource = "Viertel_Noten"
.ListIndex = 0
End With
With fmNomi3.txID3
.RowSource = "Viertel_Noten"
.ListIndex = 0
End With
With fmNomi3.txID4
.RowSource = "Viertel_Noten"
.ListIndex = 0
End With
'Show the first record of nomination range.
With Range("Nomi_List")
Set rgRecord = .Rows(2)
sbSlider.Value = 2
sbSlider.Min = 2
sbSlider.Max = .Rows.Count - 1
End With
End Sub
Private Sub txID1_Change()
Dim n As Double, n1 As Double, n2 As Double, n3 As Double, n4 As Double
On Error GoTo ERROR
n1 = txID1.Value * 1
n2 = txID2.Value * 1
n3 = txID3.Value * 1
n4 = txID4.Value * 1
n = ((n1 + n2 + n3 + n4) / 4)
txNote.Value = n
ERROR: Exit Sub
End Sub