Suchfunktion
23.05.2005 20:19:22
Christof
Ich arbeite gerade an einer Suchfunktion mit Cells.find.
Diese funktioniert im prinzip auch.
Doch leider nur zweimal wenn er nichts findet.
Dann kommt ein runtime error 91.
Ich weiß einfach nicht mehr weiter und hoffe jemand sieht das Problem und kann mir helfen.
Vielen Dank im Vorraus!
Dim erg As Object
On Error GoTo nichtsgefunden
Arbeitszeile = 2
start:
Sheets("ORDERREVIEW ").Select
Range("I" & Arbeitszeile).Select
Produktsoll = Range("I" & Arbeitszeile).Value
If Produktsoll = "" Then GoTo daswarsdenn
Range("F" & Arbeitszeile).Select
Covernummerda = Range("F" & Arbeitszeile).Value
Seitenzahl = Range("L" & Arbeitszeile).Value
If Covernummerda "" And Seitenzahl "" Then
Arbeitszeile = Arbeitszeile + 1
GoTo start
End If
Sheets("SJN-FILES ").Select
suchen:
Range("A1").Select
Set erg = Cells.Find(What:=Produktsoll)
ErsteZelle = erg.Address
erg.Activate
AktuelleSpalte = Chr$(ActiveCell.Column + 64)
AktuelleZeile = ActiveCell.Row
Produktist = Range(AktuelleSpalte & AktuelleZeile).Value
If Produktist = Produktsoll Then
Labelnummer = Range("A" & AktuelleZeile).Value
Seitenmenge = Range("G" & AktuelleZeile).Value
Sheets("ORDERREVIEW ").Select:
If Labelnummer "" Then
Range("F" & Arbeitszeile) = Labelnummer
End If
If Seitenmenge "" Then
Range("L" & Arbeitszeile) = Seitenmenge
End If
Arbeitszeile = Arbeitszeile + 1
GoTo start
End If
nichtsgefunden:
If Produktist = "" Then
Sheets("ORDERREVIEW ").Select
Arbeitszeile = Arbeitszeile + 1
GoTo start
End If
daswarsdenn:
End Sub