VBA zoeken, door wanneer niet gevonden

[japdonk]

Hallo,

Ik heb een macro gemaakt in VBA, maar zit met een ding in de knoop:
Op den duur wil ik een waarde zoeken ("Carrier") maar als hij hem niet in mn range (strCells) kan vinden moet hij wat anders doen, echter pakt hij hem niet.
Kan iemand de fout vinden?

Dim Search As String
Dim FoundRange As Range
    
    Search = "Carrier"
    Worksheets("Carrier").Activate
    Range(strCells).Select
    
    Set FoundRange = Sheets("Carrier").Cells.Find(What:=Search, LookIn:=xlValues, LookAt:=xlWhole)
                             
If FoundRange Is Nothing Then

' Hier gaat hij wat anders doen

Ik kan garanderen dat de rest wel goed in elkaar zit. het moet hier inzitten

Bedankt

 

[HSV]

Dim Search As String
Dim FoundRange As Range
    
    Search = "Carrier"
    'Worksheets("Carrier").Activate
    'Range(strCells).Select
    
    Set FoundRange = Sheets("Carrier").[COLOR="#FF0000"]Range("strCells").[/COLOR]Find(What:=Search, LookIn:=xlValues, LookAt:=xlWhole)
                             
If [COLOR="#FF0000"]Not[/COLOR] FoundRange Is Nothing Then
..Hier wat het moet doen....
else
....Hier wat het anders moet doen.......
end if

 

[japdonk]

hmm hij loopt vast op de set foundrange.
zo ziet de code er uit tot aan het zoeken:

Sub macro15()
'
' Macro15 Macro
'

'
Sheets("New").Visible = True
Sheets("New").Select

' Geef origin

Range("B2").Select
ActiveCell.Value = InputBox("Please enter origin", "Origin", "Origin")

If Range("B4").Value = "FOUT" Then
Range("B2").ClearContents
Sheets("New").Visible = False
Sheets("Freight system database").Select
MsgBox ("Set up new origin")
Exit Sub
End If

Range("B2").Select
Dim Origin As Range
Set Origin = Selection

' Geef Carrier

Range("C2").Select
ActiveCell.Value = InputBox("Please enter carrier", "Carrier", "Carrier")

Range("C2").Select
Dim Carrier As Range
Set Carrier = Selection

' Check carrier

Sheets("Carrier").Select
Columns("A:A").Select
Selection.Find(What:=Origin, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
Dim ChosenWH As String
ActiveCell.Select
ChosenWH = Selection.Address

Dim l As Long, strCells As String

l = ActiveCell.Row
strCells = "B" & l & ":QZ" & l
Range(strCells).Select

' Zoek carrier en voeg evt. toe

Dim Search As String
Dim FoundRange As Range

Search = Carrier
'Worksheets("Carrier").Activate
'Range(strCells).Select

Set FoundRange = Sheets("Carrier").Range("strCells").Find(What:=Search, LookIn:=xlValues, LookAt:=xlWhole)

If Not FoundRange Is Nothing Then

MsgBox ("NIKS GEVONDEN")
Else
MsgBox ("WE HEBBEN IETS GEVONDEN")
End If

End Sub

 

[japdonk]

het is me al gelukt, toch bedankt