Zahl (Betrag) in Worten

Hallo Willi,

schau mal hier:

http://www.excelformeln.de/tips.html?welcher=36

Claus

Beispiel: Feld A1= 22,50 € im Feld B1 soll erscheinen: Zweiundzwanzig 50/100.

Da hätte ich auch was anzubieten.

B1: =SpellNumberDE(A1;"100")

Der Code unten gehört in ein normales Modul.

Andreas.

Option Explicit

Dim BisNeunzehn As Variant

Dim Zehner As Variant

Dim Tausender As Variant

Sub Example_SpellNumberDE()

Debug.Print SpellNumberDE(12345)

Debug.Print SpellNumberDE(123.45, 2)

Debug.Print SpellNumberDE(-52.346, 2)

Debug.Print SpellNumberDE(123.456, "100")

End Sub

Function SpellNumberDE(ByVal Number As Double, Optional ByVal Places)

Dim Frac As Double

If Number < 0 Then

SpellNumberDE = "minus"

Number = Abs(Number)

End If

If IsMissing(Places) Then Places = 0

If VarType(Places) = vbString Then

Frac = Round(Number - Fix(Number), Len(Places) - 1)

Else

Frac = Round(Number - Fix(Number), Places)

End If

Number = Fix(Number)

BisNeunzehn = Array("", "ein", "zwei", "drei", "vier", _

"fünf", "sechs", "sieben", "acht", "neun", "zehn", _

"elf", "zwölf", "dreizehn", "vierzehn", "fünfzehn", _

"sechzehn", "siebzehn", "achtzehn", "neunzehn")

Zehner = Array("", "zehn", "zwanzig", "dreißig", _

"vierzig", "fünfzig", "sechzig", "siebzig", _

"achtzig", "neunzig")

Tausender = Array("", "tausend", "millionen", "milliarden", "billionen")

SpellNumberDE = SpellNumberDE & Text(Number)

If Frac > 0 Then

If VarType(Places) = vbString Then

SpellNumberDE = SpellNumberDE & " " & Frac * 10 ^ (Len(Places) - 1) & "/" & Places

Else

SpellNumberDE = SpellNumberDE & "und" & Text(Frac * 10 ^ Places)

End If

End If

End Function

Private Function Wort(Number As Integer) As String

Dim h As Integer

h = Number Mod 100

If h < 20 Then

Wort = BisNeunzehn(h)

Else

Wort = BisNeunzehn(h Mod 10) & IIf(h Mod 10 > 0, "und", "") & Zehner(Int(h / 10))

End If

h = (Number Mod 1000 - h) / 100

If h > 0 Then Wort = BisNeunzehn(h) & "hundert" & Wort

End Function

Private Function Text(Number As Double)

Dim l As Integer, i As Integer, p As Integer

Dim S As String

S = Str(Number)

For i = 1 To 1 + Int(Len(S) / 3)

p = Val("0" & Mid("000" + S, Len("000" & S) - i * 3 + 1, 3))

If p > 0 Then Text = Wort(p) & Tausender(i - 1) & Text

Next

If Right(Text, 3) = "ein" Then Stop: Text = Text & "s"

End Function

Hallo Willi,

schau mal hier rein:

https://1drv.ms/x/s!AqMiGBK2qniTgZJbpXz1kNZNJo8N5w

Du musst die Mappe herunterladen, da Makros in OneDrive nicht aktiviert sind.

Das habe ich im Netz gefunden (Autor: Nepomuk) und sollte eigentlich für dich passen.

Claus

Hallo Claus,

vielen Dank für die schnelle Antwort, hat aber leider nicht funktioniert. Vielleicht weil es nicht für Excel 2013 ausgelegt ist oder weil ich einen Fehler dabei mache.

Willi

was meinst du damit? Welches Ergebnis willst du mit dieser Formel haben?

Na mir geht es jetzt weniger um das Ergebnis als um das Verständnis der Formel.

In Deinem Fall

=SUMMEWENN(A1:A8;"Januar";C1:C8)

überprüft er ja bei dem, was er zählt, am Kriterium "Januar" in derjenigen Zelle, in der gerade überprüft, ob er den Wert zählen soll oder nicht.

Schritt für Schritt würde die Zählung entsprechend Deiner Formel [SUMMEWENN(A1:A8;"Januar";C1:C8)] so aussehen:

1. C1 nicht zählen, weil in Zeile 1 das Wort "Januar" nicht vorkommt
2. C2 nicht zählen, weil in Zeile 2 das Wort "Januar" nicht vorkommt
3. C3 zählen, weil in Zeile 3 das Wort "Januar" vorkommt
4. C4 zählen, weil in Zeile 4 das Wort "Januar" vorkommt
5. C5 nicht zählen, weil in Zeile 5 das Wort "Januar" nicht vorkommt
6. C6 nicht zählen, weil in Zeile 6 das Wort "Januar" nicht vorkommt
7. C7 nicht zählen, weil in Zeile 7 das Wort "Januar" nicht vorkommt
8. C8 nicht zählen, weil in Zeile 8 das Wort "Januar" nicht vorkommt

Und das verstehe ich ja auch, diese Formel brauchte ich ja auch. Ich verstehe nur noch nicht, wie ich Deine Formel zu einer ähnlichen abgrenze, eine Formel, die Schritt für Schritt so aussehen würde (mal ganz abgesehen davon, was für ein absurdes Ergebnis
dabei rauskommen würde):

1. C1 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
2. C2 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
3. C3 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
4. C4 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
5. C5 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
6. C6 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
7. C7 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt
8. C8 zählen, weil in Zeile 1-8 das Wort "Januar" vorkommt

In diesem Fall käme freilich das wenig hilfreiche Ergebnis '8' heraus.

Aber wie gemeint: Ich will zwei ähnliche Formeln von einander unterscheiden, das Ergebnis ist dabei irrelevant. Am Unterschied des Ergebnisses kann man den Unterschied der Formeln prüfen, nicht aber erklären.