OpenOffice.info

Tausend Dank, das wars ;)

Ändere die Zeile 'args3(0).value...' um in
args3(0).Value = "$Ergebnis.$A$1:$A$152"

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
argS2(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
argS3(0).Name = "ToPoint"
args3(0).Value = "$A$1:$A$152"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(17) as new com.sun.star.beans.PropertyValue
args4(0).Name = "SearchItem.StyleFamily"
args4(0).Value = 2
args4(1).Name = "SearchItem.CellType"
args4(1).Value = 0
args4(2).Name = "SearchItem.RowDirection"
args4(2).Value = true
args4(3).Name = "SearchItem.AllTables"
args4(3).Value = false
args4(4).Name = "SearchItem.Backward"
args4(4).Value = false
args4(5).Name = "SearchItem.Pattern"
args4(5).Value = false
args4(6).Name = "SearchItem.Content"
args4(6).Value = false
args4(7).Name = "SearchItem.AsianOptions"
args4(7).Value = false
args4(8).Name = "SearchItem.AlgorithmType"
args4(8).Value = 1
args4(9).Name = "SearchItem.SearchFlags"
args4(9).Value = 71680
args4(10).Name = "SearchItem.SearchString"
args4(10).Value = "^2"
args4(11).Name = "SearchItem.ReplaceString"
args4(11).Value = "NW"
args4(12).Name = "SearchItem.Locale"
args4(12).Value = 255
args4(13).Name = "SearchItem.ChangedChars"
args4(13).Value = 2
args4(14).Name = "SearchItem.DeletedChars"
args4(14).Value = 2
args4(15).Name = "SearchItem.InsertedChars"
args4(15).Value = 2
args4(16).Name = "SearchItem.TransliterateFlags"
args4(16).Value = 1280
args4(17).Name = "SearchItem.Command"
args4(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4())

auf ein Problem bin ich noch gestoßen.

ich habe die Suchen/Ersetzen funktion durch folgendes Makro erstellt:

[code]document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
argS2(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
argS3(0).Name = "ToPoint"
args3(0).Value = "$A$1:$A$152"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(17) as new com.sun.star.beans.PropertyValue
args4(0).Name = "SearchItem.StyleFamily"
args4(0).Value = 2
args4(1).Name = "SearchItem.CellType"
args4(1).Value = 0
args4(2).Name = "SearchItem.RowDirection"
args4(2).Value = true
args4(3).Name = "SearchItem.AllTables"
args4(3).Value = false
args4(4).Name = "SearchItem.Backward"
args4(4).Value = false
args4(5).Name = "SearchItem.Pattern"
args4(5).Value = false
args4(6).Name = "SearchItem.Content"
args4(6).Value = false
args4(7).Name = "SearchItem.AsianOptions"
args4(7).Value = false
args4(8).Name = "SearchItem.AlgorithmType"
args4(8).Value = 1
args4(9).Name = "SearchItem.SearchFlags"
args4(9).Value = 71680
args4(10).Name = "SearchItem.SearchString"
args4(10).Value = "^2"
args4(11).Name = "SearchItem.ReplaceString"
args4(11).Value = "NW"
args4(12).Name = "SearchItem.Locale"
args4(12).Value = 255
args4(13).Name = "SearchItem.ChangedChars"
args4(13).Value = 2
args4(14).Name = "SearchItem.DeletedChars"
args4(14).Value = 2
args4(15).Name = "SearchItem.InsertedChars"
args4(15).Value = 2
args4(16).Name = "SearchItem.TransliterateFlags"
args4(16).Value = 1280
args4(17).Name = "SearchItem.Command"
args4(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4())[/code]

Mein Problem ist nun, dass das Makro in der Aktuell sichtbaren Tabelle abläuft, es soll aber in Tabelle 3 ( diese hat den Namen Ergebnis) ablaufen.

was genau muss ich dann in die erste Zeile des Codes schreiben, dort vermute ich meinen Fehler

danke, voll nett von dir, klappt alles ;)) vielen vielen dank !!

bereich = thiscomponent.sheets(0).getcellrangebyposition(0,0,0,60)'Tabelle1.A1:A61
cursor = thiscomponent.currentcontroller()
cursor.select(bereich)

Hallo
[code]bereich = thiscomponent.sheets(0).getcellrangebyposition(0,0,0,60)'Tabelle1.A1:A61
cursor = thiscomponent.currentcontroller()
cursor.select(bereich)[/code]

Gruß Karo

jetzt habe ich nur noch das Problem, das ich nicht weiß wie ich im Makro die erste SPalte "markieren" kann ;(

DANKE KLAPPT SCHONMAL :)

Hallo
-->Suchen und ersetzen:
suche nach
^2
ersetze durch
NW
[x] nur in Selektion
[x] regulärer Ausdruck

Zeichne den Vorgang über '-->Extras-->Makros--Makroaufzeichnen' auf.

Gruß Karo

sorry, dass ich so viele Fragen habe, aber ich muss leider ;(

in der Spalte A stehen mehrer Zahlen zb. 20798516, 20857224, usw

in dieser Spalte möchte ich nun durch ein Makro die Zahl 2 am Anfang durch "NW" ersetzen.

kann mir jemand bitte helfen ?

danke