Hallo zusammen,
https://www.herber.de/bbs/user/46855.xls
wie Ihr im beigefügten File sehen könnt, geht es darum eine Wertpapierliste welche wir von einer externen Quelle erhalten. In Spalte A befindet sich die WKN-Nummer in Spalte C ist der zugehörige Kurs mit der entsprechenden Währung ersichtlich. Damit ich diese Liste mit internen Zahlen vergleichen kann, muss ich der WKN-Nr. noch die zugehörige Währung anfügen, da es möglich ist, dass die selbe WKN-Nr. in mehreren Währungen auftaucht.
Dies habe ich, wie im Beispiel ersichtlich, nun mittels Excelformeln "Finden" + "Teil" + "Istfehler" gelöst (Spalte F). Ich würde dies nun gerne ohne Excelformeln in VBA lösen, habe jedoch momentan noch keine Ahnung wie und ob dies überhaupt geht.
Dies wäre die Anforderung:
- WKN in Spalte A vorhanden, muss nicht verändert werden.
- in Spalte C steht der Kurs mit vorangestellter Währung, welche ausgelesen werden sollte. Bei einigen Titeln (wie in Zeile 7) ist keine Währung mit gegeben worden. Es handelt sich hierbei jedoch immer um %-Kurse.
- Bei allen Kursen welche eine Währung drinn stehen haben, müsste ich nun die WKN-Nummer&"."&Währung heraussuchen und in eine neue Zelle schreiben. Bei den Kursen ohne Währung sollte in der neuen Zelle einfach die WKN-Nr. stehen.
Der jetzige Anstz mittels Excel-Formeln sucht in der Kurs-Zelle nach einem Leerschlag, wird dieser nicht gefunden (mittels istfehler-Formel abgefangen) wird in der Spalte F nur die WKN-Nr. eingetragen. Wird der Leerschlag gefunden, holt sich die Formel die WKN-Nr. und stellt dahinter einen Punkt und danach die ersten drei Zeichen der Kursspalte (Währung).
Wie gesagt möchte ich das ganze gerne per VBA-Code lösen, da dies in einen bereits bestehenden VBA-Ablauf eingefügt werden könnte.
Sollte es hierzu keine Möglichkeit geben, müsste ich mittels VBA-Code die Zellen mit den erwähnten Formeln befüllen um ans Ziel zu kommen...
Vielen Dank für Eure Mühe...
Gruss
Yves