Runtime error

[jo geuens]

Hallo,

bij het inlezen van data in mijn userform krijg ik de volgende melding "could not set the value property type mismatch" in in excell 2010 werk deze wel goed maar deze zou ook in 2003 moeten werken kan iemand mij helpen

Private Sub ComboBox4_Change()

Set nr = Worksheets("Planning").Range("A:A").Find(Me.ComboBox4.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Sheets("Planning").Range("D" & nr.Row).Value = "ja" Then Me.OptionButton1.Value = True
     Me.TextBox2.Value = Sheets("Planning").Range("B" & nr.Row)
    Me.TextBox3.Value = Sheets("Planning").Range("C" & nr.Row)
    Me.TextBox4.Value = Sheets("Planning").Range("D" & nr.Row)
    Me.TextBox5.Value = Sheets("Planning").Range("E" & nr.Row)
    Me.TextBox6.Value = Sheets("Planning").Range("F" & nr.Row)
    Me.Textbox7.Value = Sheets("Planning").Range("G" & nr.Row)
    Me.TextBox8.Value = Sheets("Planning").Range("H" & nr.Row)
    Me.TextBox9.Value = Sheets("Planning").Range("I" & nr.Row)
    Me.TextBox10.Value = Sheets("Planning").Range("J" & nr.Row)
    Me.TextBox11.Value = Sheets("Planning").Range("K" & nr.Row)
    Me.TextBox12.Value = Sheets("Planning").Range("L" & nr.Row)
    Me.TextBox13.Value = Sheets("Planning").Range("M" & nr.Row)
    Me.TextBox14.Value = Sheets("Planning").Range("N" & nr.Row)
    Me.TextBox15.Value = Sheets("Planning").Range("O" & nr.Row)
  
End Sub

Private Sub opslaan_Click()
ans = MsgBox("Weet U zeker dat U de gegevens wilt aanpassen ?", vbYesNoCancel)
If ans = vbYes Then
    Set nr = Worksheets("Planning").Range("A:A").Find(Me.ComboBox4.Value, LookIn:=xlValues, lookat:=xlWhole)
    Sheets("Planning").Range("B" & nr.Row) = Me.TextBox2.Value
    Sheets("Planning").Range("C" & nr.Row) = Me.TextBox3.Value
    Sheets("Planning").Range("D" & nr.Row) = Me.TextBox4.Value
    Sheets("Planning").Range("E" & nr.Row) = Me.TextBox5.Value
    Sheets("Planning").Range("F" & nr.Row) = Me.TextBox6.Value
    Sheets("Planning").Range("G" & nr.Row) = Me.Textbox7.Value
    Sheets("Planning").Range("H" & nr.Row) = Me.TextBox8.Value
    Sheets("Planning").Range("I" & nr.Row) = Me.TextBox9.Value
    Sheets("Planning").Range("J" & nr.Row) = Me.TextBox10.Value
    Sheets("Planning").Range("K" & nr.Row) = Me.TextBox11.Value
    Sheets("Planning").Range("L" & nr.Row) = Me.TextBox12.Value
    Sheets("Planning").Range("M" & nr.Row) = Me.TextBox13.Value
    Sheets("Planning").Range("N" & nr.Row) = Me.TextBox14.Value
    Sheets("Planning").Range("O" & nr.Row) = Me.TextBox15.Value
Else
   Unload Me
End If
End Sub

 

[snb]

Zoek in je VBA boek eens bij lus (loop)

  for j= 2 to 15
     Me("TextBox" & j).Text = Sheets("Planning").cells(nr.Row,j)
  next