von Stephan » Di, 16.10.2018 08:25
Es geht auch per Daten-Gültigkeit, sowohl für OpenOffice als auch LibreOffice.
-markiere die Spalte in Welcher Komma in Punkte umgewandelt werden sollen
-gibt als Daten-Gültigkeit Kriterien -->Textlänge 100
(*) an und weise unter Fehlermeldung als Aktion das folgende Makro bzw. Function zu:
Code: Alles auswählen
Function Komma_in_Punkt(Zellwert, Zelladresse) As Boolean
neuer_Wert = Join(Split(Zellwert,","),".")
x = Split(Zelladresse,".")
ThisComponent.Currentcontroller.ActiveSheet.getCellRangeByName(x(1)).FormulaLocal = neuer_Wert
End Function
(*)
diese Bedingung (Textlänge 100) kann auch eine andere sein, einzig muss es eine Bedingung sein die bei Eingabe später nie erfüllt ist, denn nur wenn die Bedingung nicht erfüllt ist wird die festgelegte Aktion unter Fehlermeldung durchgeführt
Gruß
Stephan
Es geht auch per Daten-Gültigkeit, sowohl für OpenOffice als auch LibreOffice.
-markiere die Spalte in Welcher Komma in Punkte umgewandelt werden sollen
-gibt als Daten-Gültigkeit Kriterien -->Textlänge 100 [color=#FF0000](*)[/color] an und weise unter Fehlermeldung als Aktion das folgende Makro bzw. Function zu:
[code]Function Komma_in_Punkt(Zellwert, Zelladresse) As Boolean
neuer_Wert = Join(Split(Zellwert,","),".")
x = Split(Zelladresse,".")
ThisComponent.Currentcontroller.ActiveSheet.getCellRangeByName(x(1)).FormulaLocal = neuer_Wert
End Function[/code]
[size=85]
[color=#FF0000](*)[/color]
diese Bedingung (Textlänge 100) kann auch eine andere sein, einzig muss es eine Bedingung sein die bei Eingabe später nie erfüllt ist, denn nur wenn die Bedingung nicht erfüllt ist wird die festgelegte Aktion unter Fehlermeldung durchgeführt[/size]
Gruß
Stephan