Textbox nur Alphabet zulassen und ersetzen von äöü

Forumthread: Textbox nur Alphabet zulassen und ersetzen von äöü

05.09.2013 21:17:46

äöü

Hallo Zusammen,
alles mögliche in der Recherche gefunden , leider nicht das für mich passende.
Habe eine UF mit dem Namen frmEingabe , diese ist mit mehreren TextBoxen bestückt.
Nun soll Textbox1 auf Länge der Eingabe geprüft werden und auch nur Buchstaben erlaubet sein.(machbar nur Großbuchstaben?)
Des weiteren soll Ä,Ö,Ü, durch AE, OE, UE ersetzt werden.
Die erlaubte Länge der Eingabe incl des Ersetzens darf 15 Stellen nicht überschreiten.
Name= Möller ergibt= MOELLER
Name= Halbersstätter ergibt= HALBERSSTAETTER (max 15 incl AE)
Name= Richtiglängername (17) ergibt= RICHTIGLAENGERN (max 15 incl AE)
ist das realisierbar? mit dem TextBox1_Enter() Ereignis?
Matze

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox nur Alphabet zulassen und ersetzen von äöü

05.09.2013 21:39:45

äöü

Hallo
Mit Textbox1_Enter() wüsste ich nicht wie das gehn sollte...
Mit dem TextBox1_KeyPress(gehts auf jeden Fall.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Len(TextBox1.Text) <= 14 Then
        Select Case KeyAscii
            Case 65 To 90 'A-Z
            Case 196 'Ä
                If Len(TextBox1.Text) <= 14 Then
                    KeyAscii = 0
                    TextBox1.Text = TextBox1.Text & "AE"
                    Else:
                    KeyAscii = 0
                End If
            Case 214 'Ö
                If Len(TextBox1.Text) <= 14 Then
                    KeyAscii = 0
                    TextBox1.Text = TextBox1.Text & "OE"
                    Else:
                    KeyAscii = 0
                End If
            Case 220 'Ü
                If Len(TextBox1.Text) <= 14 Then
                    KeyAscii = 0
                    TextBox1.Text = TextBox1.Text & "UE"
                    Else:
                    KeyAscii = 0
                End If
            Case Else
                KeyAscii = 0
        End Select
        Else:
        KeyAscii = 0
    End If
End Sub

Die Routine fragt die Tastatureingaben ab.
Wenn du allerdings in die TextBox etwas reinkopierst greift die Routine nicht.
ransi

Danke Ransi, kann morgen erst testen owT

05.09.2013 21:46:46

Matze

@ Ransi , Nachfrage

06.09.2013 17:43:40

Matze

hi ,
dein Code funktioniert,habe nun deine Zeilen noch mit den kleinen Alphabet gemacht.
Leider will das kleine ä nicht.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1.Text)

Diese Zeile irgendwo im Netz gefunden -
' Case 48 To 57 'Zahl 0-9
' Case 65 To 90 'A-Z
' Case 97 To 122 'a-z
' Case 196, 258, 214, 246, 220, 252, 223 'Ä,ä,Ö,ö,Ü,ü,ß
Matze
Ps hab noch mehere Seiten gefunden mit ASCII dort wird das 132 = ä aber auch dies will nicht.

asc("ä")=228

06.09.2013 21:35:20

ransi

Hallo
Hm...
msgbox asc("ä") ?
gibt bei mir 228 ;-)
ransi

Früher gab's mal Tabellen f.EBCDIC, ASCII usw! orT

07.09.2013 01:14:40

Luc:-?

Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Textbox nur Alphabet zulassen und ersetzen von äöü

Forumthread: Textbox nur Alphabet zulassen und ersetzen von äöü

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Textbox nur Alphabet zulassen und ersetzen von äöü

Forumthread: Textbox nur Alphabet zulassen und ersetzen von äöü

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread