Office: (Office 2010) Text suchen und kopieren

Hallo!

Arbeite seit einigen Tagen an einer VBA Lösung:

Dokument bis zum Ende nach Zeichenfolge durchsuchen
Bei gefundener Zeichenfolge die komplette Zeile kopieren
Die kopierte Zeile in neues Dokument einfügen

Kann jemand helfen?

Gruß

:)

 

Hallo Mister Smee,

probier mal das. Das Makro kommt in ThisDocument des Dokuments, das durchsucht werden soll.
Code:

 

Ein Traum!

Danke!

 

Hallo zusammen!

Ich bin neu hier und habe auch mit VBA nicht viel bzw gar nichts zu tun. Aber für mein Dokument hätte ich genau diese Frage. Daher wollte ich es bei mir einfügen.

Es kommt bei der Ausführung allerdings die Fehlermeldung, dass folgende Meldung kommt
"Nach End Sub,..... können nur Kommentare stehen."

bzw. wenn ich den VBA-Text an das Ende des Makros stelle
"Der Suchbegriff wurde nicht gefunden".

Danke.

 

Hallo Tommi,

die Fehlermeldung deutet eben darauf hin, dass unter End Sub noch was anderes steht, z.B. ein versehentliches zweites End Sub oder irgend eine Restzeile aus irgendwelchen Versuchen. Das muss dann weg.
Das andere hab ich nicht begriffen: "bzw. wenn ich den VBA-Text an das Ende des Makros stelle..."

Welchen VBA-Text? Ans Ende welchen Makros? Hast du mehrere? Das Makro aus Beitrag 2 ist das einzige, was du zur Lösung der Aufgabe brauchst. Wenn du nicht zurecht kommst, lad dein Dokument hoch mit dem oder den Makros, die du aktuell drin hast.

 

Hallo Gerhard!
Habe nun alles rausgelöscht ausser deinem VBA-Text.
Es öffnet sich die Suchmaske, und dann kommt 0 Funde, obwohl das Wort in einem Testdok einige male vorkommt.

Das Testdok ist aber nicht gespeichert - könnte das der Grund sein?

 

Hallo Tommi,

"Das Testdok ist aber nicht gespeichert - könnte das der Grund sein?" - Speichere es halt mal, dann weißt du es.

Im übrigen darf ich mich mal selber zitieren: "Wenn du nicht zurecht kommst, lad dein Dokument hoch mit dem oder den Makros, die du aktuell drin hast."

Zum Hochladen verwende bitte die forumseigene Funktion, die sich hinter der Schaltfläche Anhänge verwalten versteckt, welche du wiederum ein bisschen unterhalb dieses Textfensters findest.

Wenn du Datenschutzwürdiges in deinem Dokument hast, lösch es raus oder verfremde es.

 

Hab dazu nicht viel reingeschrieben.

Danke und lg

 

Hallo Tommi,

das hätt ich selber auch hingekriegt ;-)

Wenn du ein Dokument mit Makro verwenden oder hochladen willst, musst du es als *.docm speichern. Im *.docx-Format wird ein Makro beim Speichern gelöscht.

Also hab ich das Makro aus Beitrag 2 reinkopiert und lasse nach "Test" suchen. Da ich annehme, dass du keine Treffer innerhalb von Strings haben willst (z.B. sdrtestxx soll nicht gefunden werden) hab ich noch die Zeile .matchWholeWord = true hinzugefügt. Wenn meine Annahme falsch ist, lösch die Zeile wieder raus.

Jedenfalls werden alle Zeilen in einem neuen Dokument gelistet, in denen das Wort Test oder test vorkommt.

Warum das bei dir nicht funktioniert hat, weiß ich nicht, da, wie geschrieben, in deinem Muster kein Makro drin war.

 

Hallo,
ist es auch möglich den Code anzupassen damit er dann die ganze Tabellenzeile kopiert?
Bei Mir wäre der Suchbegriff in der ersten Spalte.
Gruß

 

Hallo Mungo,

probier das:
Code: