Runtime Error 13 - Mismatch

Question

Ich bin neu bei VBA-Codierung und arbeitet an einem Match-Code. Der Code funktioniert einwandfrei, wenn ich den Code in "Datenblatt" ausführe (das Blatt, auf dem alle meine Daten liegen und wo die Übereinstimmung gefunden werden muss), aber wenn ich den Code auf der Startseite leite (Blatt 1 mit Benutzerformularen) Der Code ist debuggen und sagt "Runtime Error 13". Kann jemand sagen, was das Problem ist?

Und kann mir jemand sagen, warum mein "If isError" nicht funktioniert?

Vielen Dank im Voraus!

Br

'Find SKU and Test number 
Dim icol As Integer 


Sheet13.Range("XFD2") = UserForm2.ComboBox1.Value 'Sættes = ComboBox1.value 
Sheet13.Range("XFD3") = UserForm2.ComboBox2.Value 'Sættes = ComboBox2.value 



icol = [Sheet13.MATCH(XFD2&XFD3,A:A&Q:Q,0)] 'Match af værdien for vores SKU og test nr 


With ThisWorkbook.Worksheets("Data sheet") 



'If SKU or Test number not found, then messagebox 
If IsError("A:A") Then MsgBox "SKU not found": Exit Sub 
If IsError("Q:Q") Then MsgBox "Test number not found": Exit Sub 


    'Add test result/next step and comment 
    .Cells(icol, 30).Value = Me.ComboBox3.Value 
    .Cells(icol, 30 + 1).Value = Me.Comments_To_Result.Value 



End With 


End If 

Set objFSO = Nothing 
Set openDialog = Nothing 

Range("XFD2").Clear 
Range("XFD3").Clear 

Answer 1

icol sollte wie folgt sein:

icol = Application.match(arg1, arg2, arg3)

Siehe die Proben in MSDN:

var = Application.Match(Cells(iRow, 1).Value, Worksheets(iSheet).Columns(1), 0) 

---

Betreffend If IsError("A:A") Then MsgBox "SKU not found": Exit Sub, machst du es falsch. Ich nehme an, dass Sie alle Zellen in der ersten Spalte durchlaufen wollen und ob einer von ihnen ein Fehler ist. Sie brauchen dafür eine Schleife. Dies ist ein wirklich einfaches, aber Sie sollten es irgendwie in Ihrem Code implementieren:

Option Explicit 

Public Sub TestMe() 

    Dim rng As Range 

    For Each rng In Range("A:A") 
     If IsError(rng) Then Debug.Print rng.Address 
    Next rng 

End Sub