Prüfen

Sub Pruefen()
Dim A, B as String
Dim I as Integer
A =UF1.txt5.Value   ' ist immer Zahl
B =UF1.txt4.Value   ' ist immer 1.Name, 2.Name
With Tab1
For I = 2 to .cells(Rows.Count, 1).End(xlup).Row
If .cells(I,3) = B and .cells(I,9) = A Then
MsgBox "Fehler: Datensatz schon vorhanden"
End if
Next I
End With
End Sub
Wenn ich nur nach B prüfen lasse, dann fünktioniert es.
Danke!
Gruß Crissi