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
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)
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
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!
g_nikolai Geschrieben 31. Juli 2002 Geschrieben 31. Juli 2002 ich sachte ja es geht auch kürzer :-) :marine
Empfohlene Beiträge
Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren
Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können
Benutzerkonto erstellen
Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!
Neues Benutzerkonto erstellenAnmelden
Du hast bereits ein Benutzerkonto? Melde Dich hier an.
Jetzt anmelden