Avatar billede denero Juniormester
10. marts 2014 - 13:39 Der er 3 kommentarer og
1 løsning

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
Avatar billede supertekst Ekspert
10. marts 2014 - 13:45 #1
Hej
Du er velkommen til at sende filen.
Avatar billede denero Juniormester
10. marts 2014 - 15:04 #2
Sendt.
Avatar billede supertekst Ekspert
11. marts 2014 - 10:19 #3
Private Sub ComboBox1_Change()
    ContainerstørrelseMaling.Value = ComboBox1.Value
End Sub
Private Sub ContainerstørrelseMaling_Change()
    Me.ContainerstørrelseMaling.Value = Replace(Me.ContainerstørrelseMaling.Value, ",", ".")
    beregnTekstboks3
End Sub
Private Sub ÅrstalMaling_Change()
    beregnTekstboks3
End Sub
Private Sub beregnTekstboks3()
Dim v1, v2
   
    If IsNumeric(Me.ContainerstørrelseMaling) = True And _
        IsNumeric(Me.ÅrstalMaling) = True Then

        v1 = ContainerstørrelseMaling.Value
        v2 = ComboBox1.Value
       
        Select Case CStr(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
Avatar billede denero Juniormester
11. marts 2014 - 10:38 #4
Virker fint.
Tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester