Find werkt niet

[pvanbrakel]

hallo allemaal,

Ik heb een macro opgenomen en aangepast, maar nu loopt hij vast op de eerste regel, zodra ik de macro start krijg ik gelijk de msgbox: kan waarde niet vinden. Terwijl de tekst die hij moet zoeken wel degelijk in rij 1 staat.

Hoe kan ik dit oplossen?

Alvast Bedankt!

Priscilla

Sub filteren()
'
    Set CGZ = Range("A1:Z1").Find("CGZ", LookIn:=xlValues, LookAt:=xlWhole)
    If CGZ Is Nothing Then
      MsgBox "Kan de waarde niet vinden!"
       Exit Sub
    End If
    Set CGY = Range("A1:Z1").Find("CGY", LookIn:=xlValues, LookAt:=xlWhole)
    If CGY Is Nothing Then
      MsgBox "Kan de waarde niet vinden!"
       Exit Sub
    End If
    Set CGX = Range("A1:Z1").Find("CGX", LookIn:=xlValues, LookAt:=xlWhole)
    If CGX Is Nothing Then
       MsgBox "Kan de waarde niet vinden!"
       Exit Sub
    End If
    Kolom = CGZ.Column
    Kolom = CGY.Column
    Kolom = CGX.Column
    Range("A2").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=CGZ.Column, Criteria1:=">-10", Operator:=xlAnd, _
        Criteria2:="<12216"
    Selection.AutoFilter Field:=CGY.Column, Criteria1:=">-10500", Operator:=xlAnd, _
        Criteria2:="<62500"
    Selection.AutoFilter Field:=CGX.Column, Criteria1:=">-15300", Operator:=xlAnd, _
        Criteria2:="<15300"
    Columns("A:N").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add
    ActiveSheet.Paste
    Range("Q13").Select
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=CGX.Column, Criteria1:=">62500", Operator:=xlAnd, _
        Criteria2:="<185300"
    Columns("A:N").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    
    Selection.AutoFilter Field:=CGZ.Column, Criteria1:=">12216", Operator:=xlAnd, _
        Criteria2:="<18616"
    Selection.AutoFilter Field:=CGY.Column, Criteria1:=">-10500", Operator:=xlAnd, _
        Criteria2:="<57900"
    Application.CutCopyMode = False
    Range("A:N").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D36").Select
    Sheets("Sheet1").Select
    Range("G707").Select
    Selection.AutoFilter Field:=CGX.Column, Criteria1:=">57900", Operator:=xlAnd, _
        Criteria2:="<190500"
    Selection.AutoFilter Field:=CGZ.Column, Criteria1:=">12216", Operator:=xlAnd, _
        Criteria2:="<25738"
    Columns("A:N").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Sheet1").Select
    
    Selection.AutoFilter Field:=CGZ.Column, Criteria1:=">25738", Operator:=xlAnd, _
        Criteria2:="<40730"
    Selection.AutoFilter Field:=CGX.Column, Criteria1:=">111300", Operator:=xlAnd, _
        Criteria2:="<175700"
    Columns("A:N").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Sheet1").Select
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "all"
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "blok1"
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "blok 234"
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "blok 5aft"
    Sheets("Sheet5").Select
    Sheets("Sheet5").Name = "blok 5fwd+6"
    Sheets("Sheet6").Select
    Sheets("Sheet6").Name = "blok7"
    Sheets("all").Select
    Selection.AutoFilter Field:=CGX.Column
    Selection.AutoFilter Field:=CGY.Column
    Selection.AutoFilter Field:=CGZ.Column
    Range("Q7").Select
End Sub

 

[wampier]

je gebruikt xlWhole. weet je zeker dat er geen spatie voor/achter de waarde CGZ in de cel staat? bij een exact match mag de cell alleen echt de gezochte waarde bevatten.

indien je xlPart gebruikt, werkt het dan wel?

 

[pvanbrakel]

Wampier,

Ik heb de tekst opnieuw ingevoerd, zaten inderdaad spaties voor en achter. xlPart zou niet werken omdat er meerdere velden met die tekst erin verwerkt zijn. Moet een exacte match zijn dus.

bedankt, ik zal het topic op opgelost zetten.