Variant-Problem
03.12.2008 10:47:00
maike
mittels einer Userform soll eine Artikelnummer gelöscht werden können. Da Artikelnummern allerdings manchmal nicht nur aus Zahlen bestehen, sondern auch in der Form "A1001" existieren, habe ich die entsprechende Variable als Variant deklariert. Jetzt ist allerdings das Problem, dass das Programm nur Artikelnummern der form "A1001" löst, einfache Zahlen erkennt er nicht.
Hier ist der Code dazu:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Variant
Dim Mldg1, Mldg2, Mldg3, stil, titel, answer, Answer2
stil = vbYesNo + vbQuestion
Stil2 = vbYes + vbInformation
titel = "Delete-Confirm"
Titel2 = "Success"
Mldg3 = "The article has been successfully deleted!"
If TextBox1.Value Empty Then
j = TextBox1.Value
mldg = "Are you sure you want to delete the article: " & j & "?"
For i = 10 To 2000
If Sheets("Data Input").Cells(i, 2) = j Then 'an dieser Stelle läuft er zwar die _
For-Schleife durch, aber selbst wenn 14=14 steht, geht er nicht in die Anweisung. Wenn ich i auch als Variant deklariere, genausowenig
answer = MsgBox(mldg, stil, titel)
If answer = vbYes Then
Rows(i).Select
Selection.ClearContents
Call SortingNumberResults
Answer2 = MsgBox(Mldg3, Stil2, Titel2)
Unload Me
Exit For
End If
End If
Next i
End If
End Sub
Wo ist mein Denkfehler?