Seite 1 von 1
Suchen und Ersetzen - nur ganze Zellen
Verfasst: Fr, 12.12.2008 07:41
von Hömmelmann
Hallo,
ich möchte in einem Calc Dokument. Damit habe ich nur ein kleines Problem:
Ich möchte nur ganze Zellen bearbeiten und suche somit den Code für diese Einstellung.
Der bisherige Code sieht folgendermaßen aus:
ReplaceDescriptor= mySheet.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "/"
ReplaceDescriptor.ReplaceString = ""
mySheet.ReplaceAll(ReplaceDescriptor)
Danke schon mal für die Unterstützung
Friedhelm
Re: Suchen und Ersetzen - nur ganze Zellen
Verfasst: Fr, 12.12.2008 08:21
von inqui
du meinst nur zeilen in ganzzahligen zeilen?
lies die zeilennummer aus, teile die durch 2 - dann bleibt ein rest, oder nicht. rest = ungerade, kein rest = gerade
Re: Suchen und Ersetzen - nur ganze Zellen
Verfasst: Fr, 12.12.2008 08:37
von Hömmelmann
Hallo,
nein ich will nicht nur ganzzahlige Zeilen bearbeiten, sondern nur den Inhalt ganzer Zellen durch Suchen/Ersetzen bearbeiten.
z.B. habe ich nach einem DB-Export in vielen Zellen nur einen Bindestrich ( - ) stehen. Den möchte ich entfernen, also durch "" ersetzen.
Das soll aber nicht für Trennen in anderen Begriffen gelten.
In dem OO Menüpunkt Bearbeiten/Suchen&Ersetzen kann man diese Option anklicken unter "Nur ganze Wörter".
Gruß, Friedhelm
Re: Suchen und Ersetzen - nur ganze Zellen
Verfasst: Fr, 12.12.2008 09:09
von inqui
ich würde das irgendwie in der form machen:
Code: Alles auswählen
for n = 0 to x
if thiscomponent.sheets(0).getcellbyposition(0,n).string = "-" then
thiscomponent.sheets(0).getcellbyposition(0,n).string = ""
end if
next
wobei das für die erste spalte im ersten sheet gilt und x = letzte zu durchsuchende zeile ist
Re: Suchen und Ersetzen - nur ganze Zellen
Verfasst: Fr, 12.12.2008 10:51
von komma4
Hömmelmann hat geschrieben:Bindestrich ( - ) stehen. Den möchte ich entfernen, also durch "" ersetzen.
Das soll aber nicht für Trennen in anderen Begriffen gelten.
Code: Alles auswählen
ReplaceDescriptor= mySheet.createReplaceDescriptor()
With ReplaceDescriptor
.SearchString = "-"
.ReplaceString = ""
.SearchWords = TRUE
End With
mySheet.ReplaceAll(ReplaceDescriptor)
SearchWords = TRUE entspricht der Einstellung
only complete words will be found
Installiere Dir
das SDK, dann findest Du so etwas über die Indexsuche.
Klappt es damit? (mir ist unklar, was Du mit "
Trennen in anderen Begriffen" meinst? Kommen die Bindestriche auch in anderen Zellen vor? Dann nehme nicht das ganze Blatt zum Suchen/Ersetzen, sondern nur die Spalten, die Du tatsächlich bearbeiten möchtest)
Re: Suchen und Ersetzen - nur ganze Zellen
Verfasst: Fr, 12.12.2008 12:05
von Hömmelmann
Ja, danke, das war genau das, was ich suchte.
Schönes Wochenende pp
Friedhelm