Sooooo,
ich hab es dank DEINER Hilfe wirklich gelöst bekommen! Es ist war wie ich finde auf keinen Fall die eleganteste Lösung, aus geübter Programmiersicht vielleicht sogar schlecht, aber ehrlich gesagt interessiert mich nur das Ergebnis und es klappppt!!!! Mein Code siehe unten:
nurfinanzpartner = Mid(finanzpartnername, 13, 30)
nurfinanzpartner = LTrim(nurfinanzpartner)
nurfinanzpartner = RTrim(nurfinanzpartner)
'MsgBox nurfinanzpartner
If Suche > 0 Then
neuereihe = Application.WorksheetFunction.Match("*" & nurfinanzpartner, ActiveSheet.Range("A1:A150"), 0)
MsgBox neuereihe
End If
Ich speicher mir quasi einen bestimmten Bruchteil des Wortes, beginnend ab der 13 Position der Variablen Finanzpartner in eine hilfsvariable, welche ich gerade mal mit "nurfinanzpartner" beschreibe. Sofern es links oder rechts vom gesuchten Wort Leerzeichen gibt werden diese über L und R Trim entfernt.
*Das ist nicht optimal aber grundsätzlich gibt es Richtlinien, dass sich die Worte tatsächlich immer nur ab der 12 oder 13 Position ändern, von daher okay. Nicht unbedingt flexibel aber ausreichend.
Dann kommst du ins Spiel, mit Hilfe deiner "modifizierten" Match-Funktion und dem angeführten Stern wird tatsächlich die Reihe gefunden!!!
Du glaubst nicht wie glücklich mich die Tatsache gerade macht. Lieber Gast wirklich meinen aller herzlichsten Dank. Auch dass du noch Tage nach der eigentlichen Lösung hier nochmal reingeschaut hast um mir weiterhin zu helfen, es ist halt scheiße übers Netz einfach so immer "Danke" zu schreiben, davon hast du persönlich nicht viel, aber ich meine das wirklich von ganzen Herzen sehr ernst. Ich habe keine andere Möglichkeit als mich durchzufragen / durchzugooglen wenn ich nicht weiter komme, mir fällt die Programmierung wirklich überhaupt nicht leicht. Deine Hilfestellungen / Quelltexte grundsätzliche Anregungen helfen mir unglaublich weiter, dafür möchte ich dir einfach vielmals Danke sagen!!!
|