Abwehr von DAU und Pebkac

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: Abwehr von DAU und Pebkac
von: JL
Geschrieben am: 26.02.2005 21:47:03
Hallo Forum,
ich suche eine Möglichkeit, die Eingabe von Sonderzeichen in ein Eingabefeld zu unterbinden.
Es gibt zwar
IsNumeric
aber nicht
IsBuchstabe
Hilft wohl nur, die häufigsten abzufangen.
Oder?
Danke
Jörg

Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: Ulf
Geschrieben am: 26.02.2005 22:03:50
Eingabefeld was ist das für eins?
Ulf
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: JL
Geschrieben am: 26.02.2005 22:13:11
Sorry,
es wäre eine Userform mit Textfeld.
und daraus wird dann u.a. ein Dateiname gebildet aber manche scheinen einfach zu dicke Finger zu haben.
Jörg
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: Ulf
Geschrieben am: 26.02.2005 22:28:43
Mit anderen Worten sollen alle Zeichen verboten sein, die in Dateinamen nicht
enthalten sein dürfen oder auch noch andere? Wenn ja, welche?
Ulf
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: JL
Geschrieben am: 26.02.2005 22:40:13
Ja, im Prinzip auch vorangestellte Unterstriche u.ä., aber im Prinzip hast Du wohl auch nichts anderes vor, als die entsprechenden Zeichen, falls sie auftreten selbst abzufangen mit if Instr .... z.B. egal ob nun während der Eigabe oder nach der Eingabe.
Danke
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: Ulf
Geschrieben am: 26.02.2005 22:46:17
Eigentlich verhindert man die Eingabe sinnvoll in
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
indem man KeyAscii checkt.
Ulf
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: JL
Geschrieben am: 26.02.2005 23:27:48
schau ich mir morgen mal an
Danke Dir
Jörg
Bild

Betrifft: so gehts ganz gut
von: JL
Geschrieben am: 27.02.2005 03:20:36

Private Sub ein_name_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 8, 16, 18, 32, 186, 222, 192, 65 To 90, 97 To 122
Exit Sub
Case Else
MsgBox "Bitte nur Buchstaben verwenden"
Me.ein_name.Text = Left(Me.ein_name.Text, Len(Me.ein_name.Text) - 1)
End Select
End Sub

Keine Chance mehr für Pebkac
Danke
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: Boris
Geschrieben am: 26.02.2005 22:06:40
Hi Jörg,
es gibt zwar IsNumeric aber nicht IsBuchstabe
Du bist bei Ulf in den allerbesten Händen - daher nur kurz angemerkt:
In VBA wird das Gegenteil oft verneint - ich bin durstig - ich bin nicht durstig - IsNumeric - Not Isnumeric...
Grüße Boris
Bild

Betrifft: AW: Abwehr von DAU und Pebkac
von: Ulf
Geschrieben am: 27.02.2005 12:44:01
Hi,
hungrig - satt
durstig - ????
If You know, what I mean?
Ulf
Bild

Betrifft: Nur ein Test
von: Boris
Geschrieben am: 02.03.2005 22:45:42
Test
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Anzeige Problem"