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
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schrägstrich mit right einfügen

Schrägstrich mit right einfügen
03.07.2003 01:42:32
Peter
Wie wird der Schrägstrich richtig eingefügt?
~begin~
'Schrägstrich einfügen

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then Exit Sub
If Not IsNumeric(Right(TextBox1.Text, 1)) Then
Beep
TextBox1.SelStart = Len(TextBox1.Text) - 1
TextBox1.SelLength = 1
Label1.Caption = "Nur Ziffern erlaubt!"
Exit Sub
Else
Label1.Caption = ""
End If
'Hier ist ein Fehler bei Right
If Len(TextBox1.Text) >= 7 Then Right(TextBox1.Text, 2) = "/"
Exit Sub
End Sub

~end~
Danke Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schrägstrich mit right einfügen
03.07.2003 07:03:37
andre
hallo peter,
schaue mal in die hilfe zur mid-funktion.
textbox1.text=mid(textbox1.text,Len(TextBox1.Text)-1,"/")
ersetzt das vorletzte zeichen
gruss andre

Anzeige

32 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige