Office: (Office 2003) Vergleich von String-Variablen

summerson · 16. Oktober 2006

Hmmm... ja.... mein Originalthread vom 16.10. ist verschwunden ... also nochmal:

Ich möchte zwei Begriffe vergleichen. Einer stammt aus einer Tabelle, der andere stammt aus dem Textfeld eines Formulars. Beide werden an je eine Variable (String) übergeben, die ich dann mit einander vergleiche. Je nach Ergebnis soll eine MsgBox mit dem Text "richtig" oder "falsch" angezeigt werden.
Dabei kommt es allerdings zu einem "Problem", das ich nicht nachvollziehen kann:

Für folgende Fälle funktioniert mein Code:
1. Textfeld wird leer gelassen
2. Falsche(r) Buchstabe(n) im Textfeld
3. Fehlerhafte Groß- und Kleinschreibung in einem ansonsten korrekt geschriebenen Wort
4. Fehlerhafte Groß- und Kleinschreibung in einem nicht vollständig ausgeschriebenen Wort

Für folgenden Fall funktioniert mein Code nicht:
Das Wort wird korrekt, aber nur unvollständig in das Textfeld eingegeben. Bsp:
Wort: "Bildschirm"
Eingabe: "B" oder "Bild" oder "Bildsch" oder "Bildschir"
In diesen Fällen bricht die Prüfung ab, es erfolgt keine Ausgabe richtig/falsch

Warum dies der Fall ist, kann ich nicht erkennen - wäre schön, wen ihr mir weiter helfen könntet.

Hier der von mir bisher getestete Code:
Code:

'Übergabe der Werte an die Variablen
strEingabe = Me(intAufgabe & "-1")
strWort = DLookup("[Wort]", "tbl_woerter", "[WortID] = " & strWords(intLfdWort))

'Mal ansehen, was an die Variablen übergeben wird:
DisplayMessage ("1: |" & strEingabe & "|" & strWort & "|")

Vergleich der Werte (Version 1):
If (strEingabe = strWort) And (CheckGrossschreibung(strWort, strEingabe)) Then
MsgBox("Korrekt !")
else
MsgBox("Falsch !")
End If

Vergleich der Werte (Version 2):
If StrComp(strEingabe, strWort, vbBinaryCompare) And (CheckGrossschreibung(strWort, strEingabe)) Then
MsgBox("Korrekt !")
else
MsgBox("Falsch !")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke schon mal für eure Hilfe

Gruß summerson

:)

Steffen0815 · 17. Oktober 2006

Hallo,
ich denke mal du hast mit deinem Code schwer übertrieben *wink.gif*
Ein einfaches Code:

If StrComp(strEingabe, strWort, vbBinaryCompare) = 0 Then
MsgBox ("Korrekt !")
Else
MsgBox ("Falsch !")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sollte völlig ausreichen um alle Fälle abzudecken.

summerson · 17. Oktober 2006

Hi Steffen

Vielen Dank! Das "= 0" hat bei mir gefehlt ...
Jetzt funktioniert es...

Gruß summerson

Office: (Office 2003) Vergleich von String-Variablen

Vergleich von String-Variablen

Vergleich von String-Variablen

Vergleich von String-Variablen - Similar Threads - Vergleich String Variablen

Ergebnis aus INDEX und Vergleich Formel weiter Verwenden

Zwei Dateien vergleichen - Zielinfo in unterschiedlichen Spalten

Strings vergleichen und Unterschiede markieren

String vergleichen mit IF-Anweisung

Vergleich String, Listbox filtern

Zelleninhalte auslesen und mit strings vergleichen

Zahlenweiser Vergleich auf String Spalte