schwer zu beschreiben
Fabio
also:
Ich habe eine Excel-Artikelliste (mit 6-stelligen Artikelnummern). Mit dem unten angegebenen Code durchsuch ich diese Liste nach einer (über Textbox) eingegeben Artikelnummer.
Problem ist jetzt, dass wenn die eingegeben Artikelnummer nicht 6-stellig ist, bzw. wenn die eingegeben Artikelnummer nicht vorhanden ist, stürtzt das Programm ab.
Was kann man dagegen tun?
Danke schon im vorraus
Grüße FABIO
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
a = Cells(60000, 1)
Set b = Range("2:2")
Set b = b.Find("Artikelnr.")
Set b = b.EntireColumn
Set b = b.Find(a)
If b = b.Find(a) Then ' ?
b.EntireRow.delete
Else
Exit Sub
End If
End Sub