.Find und Debug Error
jens1611
ich habe mich an einer Funktion versucht die im tabellenblatt1 aus der spalte 47 jeden wert nimmt und überprüft ob dieser wert bereits in einem anderen tabellenblatt vorhanden ist. wenn ja dann soll der nächste wert geprüft werden. bei nein soll der geprüfte wert in spalte 4 eingetragen werden.
Anbei mein geistiger Erguss ;)
Dim stoff As String
Dim c As Range
Dim i As Integer
Dim neuezeile As Integer
Dim neuespalte As Integer
neuespalte = 4
neuezeile = 1
i = 2
Do While Worksheets("DBTMP_EEXP_HATAST").Cells(i, 47) ""
stoff = Worksheets("DBTMP_EEXP_HATAST").Cells(i, 47)
Set c = Worksheets("Zusammenfassung Stoffe").Range("A:A").Find(What:=stoff, lockat:=xlWhole)
If c Is Nothing Then
Worksheets("Zusammenfassung Stoffe").Cells(neuezeile, neuespalte) = stoff
neuezeile = neuezeile + 1
i = i + 1
Else
i = i + 1
End If
Loop
End Sub
Das Problem ist nun das nun jedesmal nach dem Starten der Funktion erklärt dass "Das benannte Argument nicht gefunden wurde" und springt im Debugger in die Zeile "set c= Worksheet .....
Jedoch finde ich auch mit Google nicht meinen Fehler.
Vllt. hat jemand von euch eine Idee?