JP001 Geschrieben 31. Juli 2002 Geschrieben 31. Juli 2002 Guten Morgen! Kann mir jemand von euch helfen? Ich muss folgende Abfrage in Function schreiben und hab gar keine Ahnung davon. Private Sub CommandButton1_Click() eingabe = Cells(1, 1) If eingabe <> "" Then If InStr(1, eingabe, "ö", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Umlaute", vbOKOnly ElseIf InStr(1, eingabe, "ä", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Umlaute", vbOKOnly ElseIf InStr(1, eingabe, "ü", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Umlaute", vbOKOnly ElseIf InStr(1, eingabe, "Ö", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Umlaute", vbOKOnly ElseIf InStr(1, eingabe, "Ä", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Umlaute", vbOKOnly ElseIf InStr(1, eingabe, "Ü", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Umlaute", vbOKOnly ElseIf InStr(1, eingabe, "!", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "§", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "$", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "%", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "&", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "/", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "(", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, ")", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "=", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "?", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "´", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "`", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "^", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "°", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "]", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "{", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "[", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "\", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "+", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "*", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "~", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "#", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "'", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "/", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "*", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "-", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "+", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, ",", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, ".", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, ";", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, ":", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "_", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "µ", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "<", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, ">", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "|", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "€", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, "@", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, " ", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte kein Leerzeichen", vbOKOnly Else MsgBox "Ihre Eingabe war korrekt", vbOKOnly End If End If End Sub Achja und wie frage ich den das Zeichen " ab? Ich hab da nämlich auch gar keine Ahnung!!! :confused: Danke... Gruss JP Zitieren
g_nikolai Geschrieben 31. Juli 2002 Geschrieben 31. Juli 2002 Private Function CheckEingabe(byval eingabe as string) AS String If eingabe <> "" Then If InStr(1, eingabe, "ö", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "ä", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "ü", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "Ö", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "Ä", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "Ü", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "!", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "§", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "$", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "%", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "&", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "/", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "(", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ")", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "=", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "?", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "´", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "`", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "^", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "°", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "]", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "{", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "[", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "\", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "+", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "*", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "~", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "#", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "'", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "/", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "*", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "-", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "+", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ",", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ".", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ";", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ":", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "_", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "µ", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "<", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ">", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "|", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "€", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "@", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, " ", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte kein Leerzeichen" Else CheckEingabe = "Ihre Eingabe war korrekt" End If End If End FUNCTION Diese Function sucht nach den Umlauten und gibt dir ne Rückmeldung. Es geht wahrscheinlich noch einfacher, aber so ist ja erstmal ok oder? nach dem " suchst Du mit chr(34) Zitieren
Klotzkopp Geschrieben 31. Juli 2002 Geschrieben 31. Juli 2002 ungueltig = "äöüÄÖÜ!§$%&/()=?´`^°[]{}\+*~#',.;:_µ<>@€|" & chr(34) sonderzeichen = False for i=1 to len(eingabe) If Instr( 1, ungueltig , mid( eingabe, i, 1 ), vbTextCompare ) <> 0 Then sonderzeichen = True End If next If sonderzeichen then MsgBox "Verwenden Sie bitte keine Sonderzeichen", vbOKOnly ElseIf InStr(1, eingabe, " ", vbTextCompare) <> 0 Then MsgBox "Verwenden Sie bitte kein Leerzeichen", vbOKOnly Else MsgBox "Ihre Eingabe war korrekt", vbOKOnly End If Zitieren
Mister A Geschrieben 31. Juli 2002 Geschrieben 31. Juli 2002 @ klotzkopp: Jawoll, verdammt nocheins! Das war ja nicht mit anzusehen, da dreht sich einem ja der Magen um! @ JP genauso hab ichs gemeint, als ich dir die PM schrieb! Zitieren
g_nikolai Geschrieben 31. Juli 2002 Geschrieben 31. Juli 2002 ich sachte ja es geht auch kürzer :-) :marine Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.