Wörter erkennen, und die doppelten wörter zählen

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.

Hallo EdwinOrtmann,

vielen Dank dass Sie Ihre Frage hier im Forum mit uns teilen.

In Ihrem Falle empfehle ich Ihnen erst die Schritte in "Rechtschreibprüfung funktioniert nicht in Word für Mac 2011"



Bitte geben Sie uns eine Rückmeldung ob diese Schritte funktionierten und über eventuelle Änderungen. Sie haben auch geschrieben dass das Problem erst seit neuestem erleben. Könnten Sie uns falls die empfohlenen Schritte nicht weiterhalfen, mehr Information
über:

1. Andere Änderungen die Sie kürzlich vorgenommen haben zu informieren, wie zum Beispiel Updates oder Installation von anderen Programmen?

2. Welches Operativsystem benutzen Sie

Wir freuen uns auf Ihre Rückmeldung.

Beste Grüße,

Rudolph

Hallo Willi,

schau mal hier:

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

Claus

Hallo Florian,

Siehe bitte diesen Artikel:
Automating Word Tables for Data Insertion and Extraction

Der Arikel ist auf English (Bing Translator).

Bitte kopiere auch Deine Anfrage und erstelle einen neuen Thread in
MSDN Forum, da dies der geeignertere Ort für Deine Sachlage ist. Dort sind auch Spezialisten die mit Dir über eventuelle Workarounds diskutieren können.

Auch wenn hier Sachlagen wie Deine sehr eingeschränkt behandelt werden können, gibt es jedoch ein paar Community-Moderatoren und aktive User mit dementsprechenden Hintergrund ähnlich wie bei MSDN, die hier eventuel doch helfen können. Deshalb bitte lösche
diesen Thread nicht, denn diese können hier plötzlich antworten.

Bei weiteren Fragen stehe ich zur Verfügung.

Beste Grüße,

MfG.

B.P.

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