Hallo
Robert Grosskopf schrieb:
Am Montag, 31. Oktober 2005 19:54 schrieb Jens Nürnberger:
Ich finde die Idee auch seltsam und habe weiter experimentiert, wenn man
die Spalte so formatiert und in der Nachbarzelle die Zahl "1" dazu addiert
kommt folgendes raus:
0,24 25 4,25 426
5,36 537 86,54 8655
123,56 12357
Format
0","00 #","##
Rechnen würde ich mit so einer Konstruktion auch nicht. Sieht es denn bei Exel
so aus, dass die eingegebene Zahl tatsächlich durch 100 geteilt oder nur so
dargestellt wird.
Ich hab mal Windows hochgefahren und nachgeschaut, es wird tatsächlich
duch 100 geteilt.
Mit ->Makro aufzeichnen und ->suchen und ersetzen
Suchfeld '.* '
Ersetzen durch '=&/100'
anwählen von x regulärer Ausdruck und x nur in Selektion
bin ich zu folgendem Makro gekommen:
----------------
sub festkomma
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(17) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.Backward"
args1(4).Value = false
args1(5).Name = "SearchItem.Pattern"
args1(5).Value = false
args1(6).Name = "SearchItem.Content"
args1(6).Value = false
args1(7).Name = "SearchItem.AsianOptions"
args1(7).Value = false
args1(8).Name = "SearchItem.AlgorithmType"
args1(8).Value = 1
args1(9).Name = "SearchItem.SearchFlags"
args1(9).Value = 71680
args1(10).Name = "SearchItem.SearchString"
args1(10).Value = ".*"
args1(11).Name = "SearchItem.ReplaceString"
args1(11).Value = "=&/100"
args1(12).Name = "SearchItem.Locale"
args1(12).Value = 255
args1(13).Name = "SearchItem.ChangedChars"
args1(13).Value = 2
args1(14).Name = "SearchItem.DeletedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.InsertedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.TransliterateFlags"
args1(16).Value = 1280
args1(17).Name = "SearchItem.Command"
args1(17).Value = 3
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())
end sub
----------------
bei Ausführung teilt es den Inhalt von selektierten Zellen durch 100
Vielleicht hilft das ja weiter ?
Gruß
Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
