Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeichen überprüfen

zeichen überprüfen
27.08.2006 17:26:58
Massimo
hallo zusammen
möchte in einer combobox die eingabe überprüfen.
1. es darf keine zahl sein
> das funktioniert
2. die eingabe muss so aussehen
die ersten zwei zeichen müssen buchstaben sein + "_" z.b. db_......
oder 4 buchstaben + "_" z.b. dbcm_.......
folgende habe ich probiert, ohne erfolg

Private Sub a_name_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(a_name.Text) = 0 Then Exit Sub
If IsNumeric(a_name.Text) Then
MsgBox "Zahlen sind nicht erlaubt!"
Cancel = True
ElseIf Left(a_name.Text, 5) = "_" Or _
Left(a_name.Text, 3) = "_" Then Exit Sub
MsgBox "Der Attributname muss so aussehen eichen_xxx oder 4zeichen_xxx"
Cancel = True
End If
End Sub

....ich benutze das Left() falsch oder?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeichen überprüfen
27.08.2006 17:37:13
Josef
Hallo Massimo!
Probier's mal mit LIKE.
Private Sub a_Name_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(a_Name.Text) = 0 Then Exit Sub

If Not a_Name Like "?_*" And Not a_Name Like "?_*" Then
  MsgBox "Der Attributname muss so aussehen 2Zeichen_xxx oder 4Zeichen_xxx"
  Cancel = True
End If

End Sub


Gruß Sepp

Anzeige
AW: zeichen überprüfen
27.08.2006 20:05:47
Massimo
hallo Sepp
vielen dank! hat funktioniert
gruss Massimo

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige