Hallo ! Schön wen es klappt. Noch ein paar Hinweise. Statt Ltrim und RTrim reicht auch einfach trim (ohen L bzw. R nimmt es die Leerzeichen am Anfang und Ende weg). Und bei der Range aufpassen. Vorhin hattest du mal ein Beispiel mit A5:A150 dabei. Dann zeigt er dir den Abstand von A5 an. Die konkrete Zeile ist dann aber +4. Also wenn dein Bereich nicht in der ersten Zeile startet, immer den "Offset" zum ergebnis der Match hinzufügen. Und nochmal als Hinweis bei
Application.WorksheetFunction.Match
muss der Wert da sein sonst kommt ein Laufzeitfehler . Kann man nicht direkt auswerten, nur mit Fehlerroutinen übrprüfen. Bei
Application.Match
kann der Wert auch fehlen, dann gibt die Funktion einen Fehler (error 2042) zurück ansonsten die Zeile. Kann man überprüfen mit Isnumeric(Rückgabewert).
Nur als Hinweise. Dann Viel Spaß und wenn doch was nicht läuft, einfach nochmal melden. Schöne Woche noch.
|