Hi @ all,
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