fout 91 tijdens uitvoering

[pasan]

help help ik krijg een foutmelding
fout 91 tijdens uitvoering
objectvariabele of blokvariabele with is niet ingesteld.

iemand een suggestie??????????
na foutcontrole wordt de regel van textbox1 geel

groet Pasan :thumb:

Private Sub txtachternaam_Change()
With Worksheets("index").Range("B1:AD1")

 Dim c
              Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(1, 0)
     TextBox1.Text = c
              Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(2, 0)
     TextBox2.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(3, 0)
     TextBox3.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(4, 0)
     TextBox4.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(5, 0)
     TextBox5.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(6, 0)
     TextBox6.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(7, 0)
     TextBox7.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(8, 0)
     TextBox8.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(9, 0)
     TextBox9.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(10, 0)
     TextBox10.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(11, 0)
     TextBox11.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(12, 0)
     TextBox12.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(13, 0)
     TextBox13.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(14, 0)
     TextBox14.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(15, 0)
     TextBox15.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(16, 0)
     TextBox16.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(17, 0)
     TextBox17.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(18, 0)
     TextBox18.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(19, 0)
     TextBox19.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(20, 0)
     TextBox20.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(21, 0)
     TextBox21.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(22, 0)
     TextBox22.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(23, 0)
     TextBox23.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(24, 0)
     TextBox24.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(25, 0)
     TextBox25.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(26, 0)
     TextBox26.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(27, 0)
     TextBox27.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(28, 0)
     TextBox28.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(29, 0)
     TextBox29.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(30, 0)
     TextBox30.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(31, 0)
     TextBox31.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(32, 0)
     TextBox32.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(33, 0)
     TextBox33.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(34, 0)
     TextBox34.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(35, 0)
     TextBox35.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(36, 0)
     TextBox36.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(37, 0)
     TextBox37.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(38, 0)
     TextBox38.Text = c
             Set c = .Find(txtachternaam.Value, LookIn:=xlValues).Offset(39, 0)
     TextBox39.Text = c
End With
End Sub

 

[pasan]

geen reacties

status opgelost