Billeder på label i Userform

Prøv:
    Me.Label_ScorreProcent_12.Picture = LoadPicture("")

Hej det er dejligt med selvsikkerhed men det har jeg prøvet og det virker ikke, første gang jeg opdatere er værdien 100 og der kommer et billede i lablen, men næste gang er værdien kun 50 og billedet skulle være skiftet ud med denne værdi men er det ikke

If Range("y4").Value = 100 Then
    Me.Label_ScorreProcent_12.Picture = LoadPicture("C:\lemTrivsel\billeder\ok.jpg")
    Else
    Me.Label_ScorreProcent_12.Picture = LoadPicture("")
   
   
    Me.Label_ScorreProcent_12.Caption = Range("y4").Value
End If

Har testet med denne kode:

Private Sub Label1_Click()
    Range("A1") = 50
    test
End Sub
Private Sub UserForm_Click()
    Range("A1") = 100
    test
End Sub
Sub test()
    If Range("a1").Value = 100 Then
        Me.Label1.Picture = LoadPicture("C:\Users\peter\Pictures\oldsmobile.jpg")
        Else
        Me.Label1.Picture = LoadPicture("")
        Me.Label1.Caption = Range("a1").Value
    End If
End Sub

HEj det er godtnok mærkeligt for i min userform sker der ingen forandring når først der er indsat det billede, har du et forslag til hvad der kan være galt?

Hej igen den skrevne komando er taget ud af et samlet sub, som ser sådan ud jeg ved ikke om du kan se hvor det går galt, jeg kan i hverfald ikke den activeres af en comand kanp.

Private Sub cmbSkema_Click()



    If Me.TextBindtast_sp1 = True Then
    ActiveSheet.Range("b7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp1.Value
    End If
   
      If Me.TextBindtast_sp2 = True Then
    ActiveSheet.Range("d7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp2.Value
    End If

   
      If Me.TextBindtast_sp3 = True Then
  ActiveSheet.Range("f7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp3.Value
    End If
     
      If Me.TextBindtast_sp4 = True Then
    ActiveSheet.Range("h7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp4.Value
    End If
     
      If Me.TextBindtast_sp5 = True Then
    ActiveSheet.Range("j7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp5.Value
    End If
     
      If Me.TextBindtast_sp6 = True Then
    ActiveSheet.Range("l7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp6.Value
    End If
     
      If Me.TextBindtast_sp7 = True Then
    ActiveSheet.Range("n7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp7.Value
   
End If

  If Me.TextBindtast_sp8 = True Then
    ActiveSheet.Range("p7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp8.Value
    End If
   
  If Me.TextBindtast_sp9 = True Then
    ActiveSheet.Range("r7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp9.Value
    End If
  If Me.TextBindtast_sp10 = True Then
    ActiveSheet.Range("t7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp10.Value
    End If

  If Me.TextBindtast_sp11 = True Then
    ActiveSheet.Range("v7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = Me.TextBindtast_sp11.Value
    End If
     

If Me.Chb_Nej_8 = True Then
        Me.Chb_ja_8.Enabled = False
        ActiveSheet.Range("y7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = "1"
    ActiveCell.Offset(0, -1) = "0"
End If

If Me.Chb_Nej_9 = True Then
        Me.Chb_ja_9.Enabled = False
        ActiveSheet.Range("z7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = "1"
    ActiveCell.Offset(0, 1) = "0"
    ActiveCell.Offset(0, 2) = "0"
End If
   
Me.TextB_opnåede_1.Value = Range("b6").Value
Me.TextB_opnåede_2.Value = Range("d6").Value
 
Me.TextB_opnåede_3.Value = Range("f6").Value
Me.TextB_opnåede_4.Value = Range("h6").Value
Me.TextB_opnåede_5.Value = Range("j6").Value
Me.TextB_opnåede_6.Value = Range("l6").Value
Me.TextB_opnåede_7.Value = Range("n6").Value
Me.TextB_opnåede_8.Value = Range("p6").Value
Me.TextB_opnåede_9.Value = Range("r6").Value
Me.TextB_opnåede_10.Value = Range("t6").Value
Me.TextB_opnåede_11.Value = Range("v6").Value
'Me.TextB_opnåede_12.Value = Range("x6").Value

Me.Label_ScorreProcent_1.Caption = Range("c4").Value
Me.Label_ScorreProcent_2.Caption = Range("e4").Value
Me.Label_ScorreProcent_3.Caption = Range("g4").Value
Me.Label_ScorreProcent_4.Caption = Range("i4").Value
Me.Label_ScorreProcent_5.Caption = Range("k4").Value
Me.Label_ScorreProcent_6.Caption = Range("m4").Value
Me.Label_ScorreProcent_7.Caption = Range("o4").Value
Me.Label_ScorreProcent_8.Caption = Range("q4").Value
Me.Label_ScorreProcent_9.Caption = Range("s4").Value
Me.Label_ScorreProcent_10.Caption = Range("u4").Value
Me.Label_ScorreProcent_11.Caption = Range("w4").Value
If Range("y4").Value = 100 Then
    Me.Label_ScorreProcent_12.Picture = LoadPicture("C:\lemTrivsel\billeder\ok.jpg")
    Else
    Me.Label_ScorreProcent_12.Picture = LoadPicture("")
   
   
    Me.Label_ScorreProcent_12.Caption = Range("y4").Value
End If



Me.TextB_MaxPoint_1.Value = Range("c6").Value
Me.TextB_MaxPoint_2.Value = Range("e6").Value

Me.TextBMaxPoint_3 = Range("g6").Value

Me.TextB_MaxPoint_4.Value = Range("i6").Value
Me.TextB_MaxPoint_5.Value = Range("k6").Value
Me.TextB_MaxPoint_6.Value = Range("m6").Value
Me.TextB_MaxPoint_7.Value = Range("o6").Value
Me.TextB_MaxPoint_8.Value = Range("q6").Value
Me.TextB_MaxPoint_9.Value = Range("s6").Value
Me.TextB_MaxPoint_10.Value = Range("u6").Value
Me.TextB_MaxPoint_11.Value = Range("w6").Value
'Me.TextB_MaxPoint_12.Value = Range("y6").Value



If Me.Chb_ja_8 = True Then
  ActiveSheet.Range("x7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = "1"
    ActiveCell.Offset(0, 1) = "0"
End If
If Me.Chb_ja_9 = True Then
  ActiveSheet.Range("z7").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = "1"
    ActiveCell.Offset(0, 1) = "0"
    ActiveCell.Offset(0, 2) = Me.TextBBemærkning.Value
   
End If
If Range("c4").Value >= 90 Then
    Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("c4").Value >= 80 And Range("c4").Value < 90 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("c4").Value >= 70 And Range("c4").Value < 80 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("c4").Value >= 60 And Range("c4").Value < 70 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("c4").Value >= 50 And Range("c4").Value < 60 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("c4").Value >= 40 And Range("c4").Value < 50 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("c4").Value >= 30 And Range("c4").Value < 40 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("c4").Value >= 20 And Range("c4").Value < 30 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("c4").Value > 10 And Range("c4").Value < 20 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("c4").Value = 10 Then
      Me.Image1.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp 2
If Range("e4").Value >= 90 Then
    Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("e4").Value >= 80 And Range("e4").Value < 90 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("e4").Value >= 70 And Range("e4").Value < 80 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("e4").Value >= 60 And Range("e4").Value < 70 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("e4").Value >= 50 And Range("e4").Value < 60 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("e4").Value >= 40 And Range("e4").Value < 50 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("e4").Value >= 30 And Range("e4").Value < 40 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("e4").Value >= 20 And Range("e4").Value < 30 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("e4").Value > 10 And Range("e4").Value < 20 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("e4").Value = 10 Then
      Me.Image_2.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp3
If Range("g4").Value >= 90 Then
    Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("g4").Value >= 80 And Range("g4").Value < 90 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("g4").Value >= 70 And Range("g4").Value < 80 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("g4").Value >= 60 And Range("g4").Value < 70 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("g4").Value >= 50 And Range("g4").Value < 60 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("g4").Value >= 40 And Range("g4").Value < 50 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("g4").Value >= 30 And Range("g4").Value < 40 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("g4").Value >= 20 And Range("g4").Value < 30 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("g4").Value > 10 And Range("g4").Value < 20 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("g4").Value = 10 Then
      Me.Image_3.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp4
If Range("i4").Value >= 90 Then
    Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("i4").Value >= 80 And Range("i4").Value < 90 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("i4").Value >= 70 And Range("i4").Value < 80 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("i4").Value >= 60 And Range("i4").Value < 70 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("i4").Value >= 50 And Range("i4").Value < 60 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("i4").Value >= 40 And Range("i4").Value < 50 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("i4").Value >= 30 And Range("i4").Value < 40 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("i4").Value >= 20 And Range("i4").Value < 30 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("i4").Value > 10 And Range("i4").Value < 20 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("i4").Value = 10 Then
      Me.Image_4.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp5
If Range("k4").Value >= 90 Then
    Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("k4").Value >= 80 And Range("k4").Value < 90 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("k4").Value >= 70 And Range("k4").Value < 80 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("k4").Value >= 60 And Range("k4").Value < 70 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("k4").Value >= 50 And Range("k4").Value < 60 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("k4").Value >= 40 And Range("k4").Value < 50 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("k4").Value >= 30 And Range("k4").Value < 40 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("k4").Value >= 20 And Range("k4").Value < 30 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("k4").Value > 10 And Range("k4").Value < 20 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("k4").Value = 10 Then
      Me.Image_5.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp6
If Range("m4").Value >= 90 Then
    Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("m4").Value >= 80 And Range("m4").Value < 90 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("m4").Value >= 70 And Range("m4").Value < 80 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("m4").Value >= 60 And Range("m4").Value < 70 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("m4").Value >= 50 And Range("m4").Value < 60 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("m4").Value >= 40 And Range("m4").Value < 50 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("m4").Value >= 30 And Range("m4").Value < 40 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("m4").Value >= 20 And Range("m4").Value < 30 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("m4").Value > 10 And Range("m4").Value < 20 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("m4").Value = 10 Then
      Me.Image_6.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp7
If Range("o4").Value >= 90 Then
    Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("o4").Value >= 80 And Range("o4").Value < 90 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("o4").Value >= 70 And Range("o4").Value < 80 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("o4").Value >= 60 And Range("o4").Value < 70 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("o4").Value >= 50 And Range("o4").Value < 60 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("o4").Value >= 40 And Range("o4").Value < 50 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("o4").Value >= 30 And Range("o4").Value < 40 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("o4").Value >= 20 And Range("o4").Value < 30 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("o4").Value > 10 And Range("o4").Value < 20 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If
If Range("o4").Value = 10 Then
      Me.Image_7.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp8
If Range("q4").Value >= 90 Then
    Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("q4").Value >= 80 And Range("q4").Value < 90 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("q4").Value >= 70 And Range("q4").Value < 80 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("q4").Value >= 60 And Range("q4").Value < 70 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("q4").Value >= 50 And Range("q4").Value < 60 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("q4").Value >= 40 And Range("q4").Value < 50 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("q4").Value >= 30 And Range("q4").Value < 40 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("q4").Value >= 20 And Range("q4").Value < 30 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("q4").Value > 10 And Range("q4").Value < 20 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If

If Range("q4").Value = 10 Then
      Me.Image_8.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp9
If Range("s4").Value >= 90 Then
    Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("s4").Value >= 80 And Range("s4").Value < 90 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("s4").Value >= 70 And Range("s4").Value < 80 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("s4").Value >= 60 And Range("s4").Value < 70 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("s4").Value >= 50 And Range("s4").Value < 60 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("s4").Value >= 40 And Range("s4").Value < 50 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("s4").Value >= 30 And Range("s4").Value < 40 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("s4").Value >= 20 And Range("s4").Value < 30 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("s4").Value > 10 And Range("s4").Value < 20 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If
If Range("s4").Value = 10 Then
      Me.Image_9.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp10
If Range("u4").Value >= 90 Then
    Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("u4").Value >= 80 And Range("u4").Value < 90 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("u4").Value >= 70 And Range("u4").Value < 80 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("u4").Value >= 60 And Range("u4").Value < 70 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("u4").Value >= 50 And Range("u4").Value < 60 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("u4").Value >= 40 And Range("u4").Value < 50 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("u4").Value >= 30 And Range("u4").Value < 40 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("u4").Value >= 20 And Range("u4").Value < 30 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("u4").Value > 10 And Range("u4").Value < 20 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If
If Range("u4").Value = 10 Then
      Me.Image_10.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If

'sp11
If Range("w4").Value >= 90 Then
    Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If
If Range("w4").Value >= 80 And Range("w4").Value < 90 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\90%.jpg")
End If
    If Range("w4").Value >= 70 And Range("w4").Value < 80 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\80%.jpg")
End If

If Range("w4").Value >= 60 And Range("w4").Value < 70 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\70%.jpg")
End If

If Range("w4").Value >= 50 And Range("w4").Value < 60 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\60%.jpg")
End If

If Range("w4").Value >= 40 And Range("w4").Value < 50 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\50%.jpg")
End If

If Range("w4").Value >= 30 And Range("w4").Value < 40 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\40%.jpg")
End If
If Range("w4").Value >= 20 And Range("w4").Value < 30 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\30%.jpg")
End If

If Range("w4").Value > 10 And Range("w4").Value < 20 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\20%.jpg")
End If
If Range("w4").Value = 10 Then
      Me.Image_11.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
End If


'sp12
If Range("y4").Value < 100 Then
    Me.Image_12.Picture = LoadPicture("C:\lemTrivsel\billeder\0%.jpg")
Else
    Me.Image_12.Picture = LoadPicture("C:\lemTrivsel\billeder\100%.jpg")
End If





Me.Chb_ja_8.Value = False
Me.Chb_ja_9.Value = False


Me.Chb_Nej_8.Value = True
Me.Chb_Nej_9.Value = True

Me.TextBBemærkning.Value = ""
Dim antalskema As Double

antalskema = Range("a2").Value
Range("a2").Select
Range("a2").Value = antalskema + 1



Me.TexBSkemaAntal.Value = antalskema

Me.TextBindtast_sp1.Value = ""
Me.TextBindtast_sp2.Value = ""
Me.TextBindtast_sp3.Value = ""
Me.TextBindtast_sp4.Value = ""
Me.TextBindtast_sp5.Value = ""
Me.TextBindtast_sp6.Value = ""
Me.TextBindtast_sp7.Value = ""
Me.TextBindtast_sp8.Value = ""
Me.TextBindtast_sp9.Value = ""
Me.TextBindtast_sp10.Value = ""
Me.TextBindtast_sp11.Value = ""



Me.TextB_Ja8.Value = Range("x6").Value
Me.TextB_Ja9.Value = Range("z6").Value


Me.TextB_Nej8.Value = Range("y6").Value
Me.TextB_Nej9.Value = Range("aa6").Value



'Range("v2").Value = Range("v2") + 1

Me.TextBindtast_sp1.SetFocus
Me.Img_Start.Top = 960

If Me.TextBindtast_sp1.Value = "" Then
    Me.Cmb_Gem.Visible = False
    Me.Cmb_Gem.Visible = False
    Me.Cmb_Print.Visible = True
Else
    Me.Cmb_Gem.Visible = True
    Me.Cmb_Gem.Visible = True
    Me.Cmb_Print.Visible = True
End If



End Sub

Har du mulighed for at sende en kopi af filen? @-adressen under min profil.