If sætninger i Excel 2010 - decimaltal fra combobox
Nedenstående fungerer fint med decimaltal "ContainerstørrelseMaling", hvis de tastes direkte ind, men hvis de kommer fra en combobox med rowsource i en given kolonne, virker det kun med hele tal ikke decimal???Hvad er det jeg har overset?
Private Sub ComboBox1_Change()
ContainerstørrelseMaling.Value = ComboBox1.Value
End Sub
Private Sub ContainerstørrelseMaling_Change()
beregnTekstboks3
End Sub
Private Sub ÅrstalMaling_Change()
beregnTekstboks3
End Sub
Private Sub beregnTekstboks3()
Dim v1 As Double
If IsNumeric(Me.ContainerstørrelseMaling) = True And _
IsNumeric(Me.ÅrstalMaling) = True Then
v1 = ContainerstørrelseMaling.Value
v2 = ComboBox1.Value
Select Case v1
Case 14, 14.5, 11.5, 13.5, 17
ÅrstalDerMales.Value = ÅrstalMaling.Value + 2
Case 21, 24, 30, 32, 33, 34, 36, 25, 26, 27, 29, 37, 40.5
ÅrstalDerMales.Value = ÅrstalMaling.Value + 4
Case Else
ÅrstalDerMales.Value = ""
End Select
Else
ÅrstalDerMales.Value = ""
End If
End Sub
