Hallo zusammen,
ich bin heute auf euch gestoßen und habe ein paar interessante Ansätze für mein Problem gefunden, leider komme ich damit nicht weiter...
Das Problem:
Ich habe eine Excel Tabelle, die mittels eines Macros Daten aus einer anderen Tabelle importiert, dies funktioniert auch soweit sehr gut.
Dann soll das Makro aus dem herüber kopierten Text ein bestimmtes immer vorkommendes Wort finden in abhängigkeit eines Zählers und einer Schleife finden.
Das Wort ist Reise, allerdings steht dann da zb. Reise Deutschland - Italien oder Reise Italien Deutschland etc. Das einzig konstante in diesem Fall ist Reise.
Die Bemerkungen finden sich in den Spalten AD bis AO ab Zeile 15
Wenn das Wort gefunden wurde soll ein Wert aus einer anderen Spalte und derselben Zeile, in eine andere Spalte und der selben Zeile verschoben werden und im Ursprungsort .ClearContents....
Leider kopiert mir das Makro bzw der Code den ich da zusammen gebastelt habe alles aus der Spalte in die andere und nicht nur die Zelle, aus der Zeile wo das Wort Reise gefunden wurde..
Anbei mal ein Code-Schnipsel
letzte = Range("Z65536").End(xlUp).Row
~f~k = letzte 'die letzte Zeile mit einem Wert~f~
~f~s = 15: t = Cells(k, 41).End(xlUp).Row 's ist die Startzeile~f~
~f~For s = 15 To k Step 1~f~
~f~Do Until InStr(Cells(s, 41), "*Reise*") > 0 Or s = k~f~
~f~If InStr(Cells(s, 41), "*Reise*") Then~f~
~f~Cells(s, 26).Copy~f~
~f~Cells(s, 15).PasteSpecial xlPasteValues~f~
~f~Else~f~
~f~If s = k Then~f~
~f~End If~f~
~f~s = s~f~
~f~End If~f~
~f~Loop~f~
Next
Habt Ihr evtl. eine Idee wie ich dieser Problematik Herr werden kann?
Vielen Dank im Vorraus.