Fout 1004

Hoi,

Ik krijg steeds de fout melding 1004

De waarde r is ook nothing wat volgens mij er op wijst dat de macro de tabel niet vind. wie kan mij helpen?

Dim rng As Excel.Range


If Plaats2.Text = "" Then Xb = Plaats.Text Else: Xb = Plaats2.Text
With Sheets("Plaatsen").Range("Tabel4[Plaats]")
Set rng = .Find(What:=Xb, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
Lookat:=xlWhole, _
Searchorder:=xlByRows, _
Searchdirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
Dim r As Range


'regel hier onder geeft de fout 1004
Set r = .Range("Tabel4[Plaats]" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find(Xb, LookIn:=xlValues)

If TextBox39.Text < 75 Then TextBox40.Value = .Cells(r.Row, 2)
If TextBox39.Text >= 75 Then TextBox40.Value = .Cells(r.Row, 3)

Else: UserForm1.Show

End If

End With

On Error GoTo 0

End Sub

Bovenstaand lijkt me een bereik: bv. range("A1:A10")

Dan kun je er niet......
...van maken wat mij lijkt overeen te komen met:
vertaald naar bv 100 als de laatst ingevulde cel A100 is:
Dan krijg je als resultaat.....

Upload een testbestand en er is vast wel iemand die er naar wil kijken.

Maar de tabel breid zich steeds uit met meer plaatsnamen.
Op het moment dat ik dat 101 plaatsnamen heb wordt de laatste niet meer gezien

Heb net geprobeerd met jou voorstel maar dan blijf ik fout 1004 krijgen

Doe eens een testje, of voeg een testbestand toe.


Je zult zien dat het bereik gewoon mee gaat.

Hoe voeg ik een testbestand toe?

Via de paperclip rechts van de smiley.

Oke een testbestand moet ik eerst maken.
Zitten veel prive gevens in het bestand waar ik nu in werk

Doe maar rustig aan.
De meesten liggen op één oor wat ik nu ook ga doen.

Kijk over een paar uurtjes wel weer.