Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abbruch Button soll Bedingung umgehen

Abbruch Button soll Bedingung umgehen
28.02.2007 17:30:07
Malcolm_p

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Definition auf 17 Zeichen
If Len(TextBox4) <> 17 Then
Cancel = True
End If
End Sub

Hallo Leute,
Das o.g. Sub soll eine Eingabe von genau 17 Zeichen in der Textbox sicherstellen. Das tut es auch wunderbar.
Ich rätsel aber gerade, wie man die Bedingung der Textbox4 über einen "Abbruch-CommandButton" umgehen kann, also ohne Eingabe der verlangten 17 Zeichen.
Kann mir da vielleicht jemand weiterhelfen?
Gruß
Malcolm

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abbruch Button soll Bedingung umgehen
28.02.2007 22:21:00
Gerd
Hallo Malcolm,
bei Betätigen des Commandbuttons im voraus so:
Option Explicit
Public blnIgnorieren As Boolean

Private Sub CommandButton1_Click()
blnIgnorieren = True
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Definition auf 17 Zeichen
If Len(TextBox1) <> 17 And Not blnIgnorieren Then
Cancel = True
End If
blnIgnorieren = False 'Wirkung des Buttons auf einmalig beschränken
End Sub

Gruß
Gerd
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige