[de-users] OOo2.3.1 Calc: Formate in Zellen per Makro
Hallo Liste, zuerst einmal allen ein frohes und gesundes neues Jahr. Und schon hab ich wieder eine Frage zu Calc: Ich möchte per Makro bestimmen, dass in einer Zelle nur Zahlenwerte (ganze Zahlen) eingetragen werden können, die durch 5 teilbar sind. Hat jemand schon einmal so etwas gemacht (oder so ähnlich)? Oder hat jemand eine Idee? Viele Grüße Kornelia - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [de-users] OOo2.3.1 Calc: Formate in Zellen per Makro
Hallo Kornelia, Kornelia Lubke schrieb: Ich möchte per Makro bestimmen, dass in einer Zelle nur Zahlenwerte (ganze Zahlen) eingetragen werden können, die durch 5 teilbar sind. Muss es denn ein Makro sein? Genügt nicht eine Funktion, in einer benachbarten Zelle, die zum Beispiel eine Warnung anzeigt, wenn der eingegebene Wert nicht durch 5 teilbar ist? =wenn(a1/5ganzzahl(a1/5);WARNUNG;) oder so ähnlich. Gruß Stefan - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [de-users] OOo2.3.1 Calc: Formate in Zellen per Makro
Hallo, Kornelia Lubke schrieb: Und schon hab ich wieder eine Frage zu Calc: Ich möchte per Makro bestimmen, dass in einer Zelle nur Zahlenwerte (ganze Zahlen) eingetragen werden können, die durch 5 teilbar sind. Hat jemand schon einmal so etwas gemacht (oder so ähnlich)? Oder hat jemand eine Idee? am Einfachsten machst Du das über Daten-Gültigkeit: wähle im Register Kriterien: zulassen -- Ganze Zahl Daten -- gleich Wert -- 123456789 (Hinweis: der Wert ist egal, er muß nur so gewählt sein das er nicht durch Zufall richtig eingegeben wird, Du kannst auch was Anderes als ganze Zahl benutzen, Hauptsache das wird niemals zufällig eingegeben) und im Register Fehlermeldung: -- die Fehlermeldung aktivieren Aktion -- Makro und weise unter Titel die folgende Funktion zu: function wert_test(zellwert, zelladresse) as boolean If VAL(zellwert) mod 5 0 Then Msgbox (Bitte nur ein Vielfaches von 5 eingeben.,48,Falsche Eingabe) wert_test = False Else wert_test = True End if end function Gruß Jörg - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]