Hi Leute,
ich bräuchte mal eure Hilfe, ein Makro lauffähig zu machen. Es soll mir alle Zeilen in Spalte B durchsuchen, und wenn da ein bestimmtes Wort drinsteht, soll es ein anderes Wort genau eine Zeile drunter und eine Spalte links daneben reinschreiben - also sagen wir, das gesuchte Wort steht in B16, dann soll das neue Wort reingeschrieben werden in A17.
Und das Makro soll den Text solange durchsuchen, bis es am Ende angelangt ist, sprich die gesamte Tabelle durchsucht haben.
Im Prinzip kann ich mir schon ungefähr vorstellen, wie das funktioniert. Zuerst muss das System ja irgendwie nachschauen, wie viele Zeilen befüllt sind. Das ist dann eine Variable, mit der man eine For-Next-Schleife aufbauen kann. Nur wie heißt der Befehl dazu, zu definieren wie viele Zellen es gibt?
Dann fehlt mir auch der VBA-Befehl zum Zellen durchsuchen nach einem bestimmten Wort. Ich nehme an, wenn das gelöst ist, dann muss ich mit dem Offset-Befehl arbeiten, um eben eins nach unten und eins nach links zu rutschen, und dann halt ActiveCell.Value="MeinText"?
So ungefähr weiß ich also, wie ich das aufzubauen habe, aber mir fehlen eben noch einige Grundkenntnisse.
Danke für eure Hilfe!
|