Suchen und Ersetzen via Macro

[hoefri55]

Ich blutiger Anfänger habe schon wieder das nächste Problem:

Ich möchte per Macro verschiedene Texteinträge in meinem Calc-Tabellenblatt ändern. Das habe ich über Macro aufzeichnen probiert.
Es klappt auch solange die gesuchten Textstellen gefunden werden. Falls das nicht der Fall ist, gibt oo aber leider eine entsprechende Meldung aus:

"Suchbegriff nicht gefunden"

Wie kann ich diese Meldung unterdrücken?

Danke, F. Hömmeke

[Charly]

Hallo!

Ich glaube bei den mit den Recordern aufgezeichneten Programmen kann man die Meldungen nicht abstellen. Er arbeitet genauso, wie wenn man den Befehl über Menü aufruft. Ich habe zumindest noch keinen Befehl gefunden um die Meldungen abzustellen. In Excel gibt es so etwas.

In Starbasic gibt es allerdings auch einen direkten Befehl für Suchen und ersetzen. Probier einmal folgenden Code aus:

Code: Alles auswählen

Sub Suchen_Ersetzen()

Doc = This Component
Sheet = Doc.Sheets(0)

ReplaceDescriptor= Sheet.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "Suchtext"
ReplaceDescriptor.ReplaceString = "Neuer Text"

Sheet.ReplaceAll(ReplaceDescriptor)

End Sub

Gruß
Charly

[hoefri55]

hallo

ich habe den Code ausprobiert und bin bis zum zweiten Wort gekommen.
Fehlermeldung:

Basic Syntaxfehler
Unerwartetes Symbol: Component

[Charly]

Hallo!

Ich muss mich entschuldigen. Ich habe mich vertippt.

Der Befehl lautet natürlich :

Code: Alles auswählen

Doc = ThisComponent

und nicht

Code: Alles auswählen

Doc = This Component

Gruß
Charly

[MikeRo]

Wie kann ich denn in einem bestimmten Bereich suchen? Ich will das er Ein Wort findet aber nur in einer bestimmten Zeile und nicht irgendwo anders.
Kann man den Suchbereich auch definieren?

[Karolus]

Hallo

Kann man den Suchbereich auch definieren?

Ja.
Gruß Karo

(Falls dir die Antwort zu mager ist präzisiere zunächst mal "Zeile")

[MikeRo]

Danke

Code: Alles auswählen

   				oCellRange = oSheet.getCellRangeByName("A10:ZZ10")

				ReplaceDescriptor = oCellRange.createReplaceDescriptor()
				ReplaceDescriptor.SearchString = "Format"
				ReplaceDescriptor.ReplaceString = "Neuer Text"

				oCellRange.ReplaceAll(ReplaceDescriptor)