Seite 1 von 1
Suchen und Ersetzen via Macro
Verfasst: Do, 16.09.2004 15:14
von 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
Verfasst: Do, 16.09.2004 18:39
von 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
Das klappt nich
Verfasst: Fr, 17.09.2004 08:59
von hoefri55
hallo
ich habe den Code ausprobiert und bin bis zum zweiten Wort gekommen.
Fehlermeldung:
Basic Syntaxfehler
Unerwartetes Symbol: Component
Verfasst: Fr, 17.09.2004 10:26
von Charly
Hallo!
Ich muss mich entschuldigen. Ich habe mich vertippt.
Der Befehl lautet natürlich :
und nicht
Gruß
Charly
Re: Suchen und Ersetzen via Macro
Verfasst: Di, 12.07.2011 11:02
von 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?
Re: Suchen und Ersetzen via Macro
Verfasst: Di, 12.07.2011 11:21
von Karolus
Hallo
Kann man den Suchbereich auch definieren?
Ja.
Gruß Karo
(Falls dir die Antwort zu mager ist präzisiere zunächst mal "Zeile")
Re: Suchen und Ersetzen via Macro
Verfasst: Di, 12.07.2011 12:26
von MikeRo
Danke
Code: Alles auswählen
oCellRange = oSheet.getCellRangeByName("A10:ZZ10")
ReplaceDescriptor = oCellRange.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "Format"
ReplaceDescriptor.ReplaceString = "Neuer Text"
oCellRange.ReplaceAll(ReplaceDescriptor)