OpenOffice.info

Hallo Karo,
[quote]Hast du dir vielleicht schon die "Mühe" gemacht nachzuschauen was "hinter" dem von mir nachgereichten Link steckt ??[/quote]
Ja, ich habe mir das kurz angeschaut - zumindest soweit möglich, da ich momentan nur Zugriff über einen Rechner in einem geschützen Firmennetzwerk, also ohne Downloadmöglichkeit habe. Kann das also im Moment nicht testen.
Ich frage auch deswegen nach, weil selbst für dieses "kleine Addon" ein innerbetrieblicher Software-Freigabeprozess durchlaufen werden müsste, den ich möglichst vermeiden möchte. Über eine Anpassung des Makros wäre dies denke ich nicht notwendig.

Vielen vielen Dank nochmal für deine Unterstützung!

= ... &TEXT(REST(A1;1);"??/100")

[quote="homerj"]
Hat jemand vielleicht das Script schon dahingehend erweitert, dass auch Cent-Beträge (so in der Art "Fünfzehn 25/100" für EUR 15,25) ausgegeben werden?[/quote]

Hast du dir vielleicht schon die "Mühe" gemacht nachzuschauen was "hinter" dem von mir nachgereichten Link steckt ??

[code]= ... &TEXT(REST(A1;1);"??/100")[/code]

Hallo Gerd,

[quote]Und das ist der Fehler. Nicht zwischen den Bereich Sub Main und End sub kopieren sondern überschreiben.[/quote]

Genau, jetzt klappt es endlich. :D Super. Vielen Dank!!

Hat jemand vielleicht das Script schon dahingehend erweitert, dass auch Cent-Beträge (so in der Art "Fünfzehn 25/100" für EUR 15,25) ausgegeben werden?

Moin homerj,
habs gerade mal nachvolzogen, Ergebniss: Funktioniert.
[quote="homerj"]
[*] "Quelltext" in den Bereich zwischen "Sub Main" und "End Sub" kopieren und dann speichern
[/quote]
Und das ist der Fehler. Nicht zwischen den Bereich Sub Main und End sub kopieren sondern überschreiben.
Sonst findet OpenOffice die Function schreibzifferfolge nicht, weil: Es gibt sie nicht. Es gibt sub main. Das ist aber keine Function.

Also: jetzt einfach die Zeilen sub main und end sub löschen. Dann sollte es gehen.
Gruß
Gerd

function SchreibZifferfolge(n)as string
dim schrZiffer
dim s as string
schrZiffer() = Array ("null","eins","zwei","drei","vier","fünf","sechs","sieben","acht","neun")
for i = 1 to len(n)
s = s & schrZiffer(mid(n,i,1)) & "-"
next
schreibzifferfolge = left(s,len(s)-1)
End function

[quote="F3K Total"]Hi,
ich möchte dir noch [url=http://de.openoffice.info/viewtopic.php?f=2&t=11520]diesen Beitrag[/url] empfehlen, ursprüngliche Codes von Andrew Pitonyak, die können nämlich folgendes:[attachment=0]ZAHL_IN_WORT.PNG[/attachment]
Gruß R[/quote]

Hallo Karolus,

genau diesen Beitrag hatte ich ja selber als Link angegeben. Da das direkt mit dem ersten Script von dir...

[code]function SchreibZifferfolge(n)as string
dim schrZiffer
dim s as string
schrZiffer() = Array ("null","eins","zwei","drei","vier","fünf","sechs","sieben","acht","neun")
for i = 1 to len(n)
s = s & schrZiffer(mid(n,i,1)) & "-"
next
schreibzifferfolge = left(s,len(s)-1)
End function[/code]
...schon nicht funktioniert, habe ich die anderen nur kurz mit dem gleichen Ergebnis ausprobiert. Ich weiss nicht, was ich falsch mache. Ich habe das folgendermassen gemacht:

[list][*]Extras > Makros > Dialoge verwalten
[*]Bibliotheken > Neu > Name eintragen und dann speichern
[*]Module > Bibliothek auswählen > neues Modul anlegen > Name speichern
[*]Neues Modul bearbeiten
[*] "Quelltext" in den Bereich zwischen "Sub Main" und "End Sub" kopieren und dann speichern
[*] Dann so wie im nachfolgenden Bild-Link ersichtlich eine Zahl ins Feld A1 eingetragen und in anderes Feld "=SchreibZifferfolge(A1)" eingetragen und dann auf Enter gedrückt[/list]

[url]http://pasteboard.co/HIoVv3u.png[/url]

Vielen Dank!!

Hallo

Inzwischen gibts dafür [url=http://extensions.services.openoffice.org/de/project/numbertext]Numbertext[/url]

Karolus

Hi,
ich möchte dir noch [url=http://de.openoffice.info/viewtopic.php?f=2&t=11520]diesen Beitrag[/url] empfehlen, ursprüngliche Codes von Andrew Pitonyak, die können nämlich folgendes:[attachment=0]ZAHL_IN_WORT.PNG[/attachment]
Gruß R

Hallo,
der Macrocode von Karolus funktioniert. Was Du dabei falsch machst ist mir leider nicht bekannt.

function SchreibZifferfolge(n)as string
dim schrZiffer
dim s as string
schrZiffer() = Array ("null","eins","zwei","drei","vier","fünf","sechs","sieben","acht","neun")
for i = 1 to len(n)
s = s & schrZiffer(mid(n,i,1)) & "-"
next
schreibzifferfolge = left(s,len(s)-1)
End function

SCHREIBZIFFERFOLGE(A1)

#WERT!

REM  *****  BASIC  *****
Function test(ByVal n) As String

If (n = 5) Then
	test = "fünf"
End If	

If (n > 5) Then
	test = "mehr als 5"
End If

If (n < 5) Then
	test = "weniger als 5"
End If

End Function

=TEST(A1)

Hallo,

ich habe mich bislang noch nie mit Makro-Programierung beschäftigt. Ich möchte gern per Makro in Calc (ich nutze Version 4.0.1) Zahlen (bzw. Beträge) in Worte umwandeln. Hier [url]http://de.openoffice.info/viewtopic.php?f=2&t=11520[/url] habe ich im Prinzip das gefunden, was ich suche. Wenn ich allerdings z.B. diese Funktion von Karo...

[code]function SchreibZifferfolge(n)as string
dim schrZiffer
dim s as string
schrZiffer() = Array ("null","eins","zwei","drei","vier","fünf","sechs","sieben","acht","neun")
for i = 1 to len(n)
s = s & schrZiffer(mid(n,i,1)) & "-"
next
schreibzifferfolge = left(s,len(s)-1)
End function[/code]
.. über den Aufruf [code]SCHREIBZIFFERFOLGE(A1)[/code]
aufrufe, erscheint im entsprechenden Feld lediglich... [code]#WERT![/code]
Als Test habe ich einfach mal als Makro dieses gespeichert...
[code]REM ***** BASIC *****
Function test(ByVal n) As String

If (n = 5) Then
test = "fünf"
End If

If (n > 5) Then
test = "mehr als 5"
End If

If (n < 5) Then
test = "weniger als 5"
End If

End Function[/code]
... das funktioniert über den Aufruf [code]=TEST(A1)[/code]
Hat jemand eine Idee, was ich falsch mache? Vielen Dank!!