Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Wo steckt der Fehler?????
Autor: ODO
Datum: 27.11.08 22:43
Habe eine Funktion geschrieben, die einen Text (EINGABETEXT) auf Sonderzeichen prüft. Bei unerlaubtem Zeichen gibt diese mir ein TRUE zurück. Bei Zahlen funktioniert es, bei Buchstaben kommt die Fehlermeldung Typen unverträglich. Ich finde einfach den Fehler nicht............ Function PRUEFUNG_SONDERZEICHEN(ByVal EINGABETEXT As String) As Boolean Dim BUCHSTABEN() As String Dim i As Integer ReDim BUCHSTABEN(Len(EINGABETEXT) - 1) i = 0 While (i < Len(EINGABETEXT)) BUCHSTABEN(i) = Mid(EINGABETEXT, i + 1, 1) i = i + 1 Wend i = i - 1 While (i > -1) 'PRÜFUNG: ZULÄSSIG SIND 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, Komma If (Asc(BUCHSTABEN(i)) < 48 Or (Asc(BUCHSTABEN(i)) > 57 And (Asc(BUCHSTABEN(i) <> 44)))) Then PRUEFUNG_SONDERZEICHEN = True Exit Function End If i = i - 1 PRUEFUNG_SONDERZEICHEN = False Wend End Function

Wo steckt der Fehler?????	914	ODO	27.11.08 22:43
Re: Wo steckt der Fehler?????	685	xtts02	28.11.08 00:04
Re: Wo steckt der Fehler?????	609	Ralf Ehlert	28.11.08 08:56
Re: Wo steckt der Fehler?????	898	DaveS	28.11.08 09:28
Re: Wo steckt der Fehler?????	607	Dieter	28.11.08 07:13
Re: Wo steckt der Fehler?????	606	DaveS	28.11.08 09:15
Re: Wo steckt der Fehler?????	602	xtts02	28.11.08 10:06
Re: Wo steckt der Fehler?????	580	ODO	28.11.08 22:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen