|
Also es hat mir keine Ruhe gelassen.
Ich habe es jetzt (Dank dir) herausgefunden.
Gefunden = WorksheetFunction.Match(Suchwert, rngDokumentation, 0)
Wenn der Wert nicht gefunden wird, bleibt einfach der Alte Wert bestehen.
Mann könnte also jetzt den Alten Wert in eine Variable (SuchwertOld) schreiben und den neuen damit vergleichen.
Auch den ersten Durchlauf könnte man damit (setzen der SuchwertOld Variablen auf den Anfangswert Leer) abfangen.
Aber ich werde es mit der zweiten Variante versuchen.
Gefunden = Application.Match(Suchwert, rngDokumentation, 0)
Denn dort bekomme ich den Fehlercode "Fehler 2042" zurück.
Und da möchte ich mich ein zweites mal bedanken, denn ich hätte jetzt versucht mit "If Gefunden <> "Fehler 2042" Then" den Fehler abzufangen.
Dank dir habe ich aber "If IsNumeric(Gefunden) Then" eingefügt, und es hat auf anhieb geklappt.
Vielen Dank dafür.
Bis zum nächsten mal
|