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"