Steuerelement in Klasse übergeben

Option Explicit 'Documentation: http://www. _ online-excel.de/excel/singsel_vba.php?f=57 Public WithEvents thisValidate As MSForms.TextBox Private Sub thisValidate_Change() If thisValidate.Tag = "date" Then Call IsDate(thisValidate) End Sub Private Sub IsDate(oControl As MSForms.TextBox) Dim IsADate As Boolean Dim thisUserform As UserForm Set thisUserform = get_CurrentUserform IsADate = RegExValidate(oControl.Value, "^\d{2}\.\d{2}\.\d{4}$") If IsADate = False And oControl.Value "" Then thisUserform.oControl.BackColor = RGB(255, 64, 64) thisUserform.oControl.ControlTipText = "Bitte geben Sie das Datum im Format tt.mm.jjjj _ ein. Beispiel: 01.01.2014" Else thisUserform.oControl.BackColor = RGB(255, 255, 255) thisUserform.oControl.ControlTipText = "" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Erik,
man kann hier mit der Objekt-Eigenschaft arbeiten, um das Steuerelement an die Sub zu übergeben. Allerdings gehen dabei betimmte Eigenschaften verloren, die dann nicht zugewiesen werden können, u.a. der ControlTipText.
Hier kann man mit einer Function arbeiten, um den Wert der Eigenschaft der Textbox anzupassen.
Zum testen hab ich einige Prüfungen umgebaut, damit ich nicht zu viwl nachbauen muss. Dass musst du ggf. wie in deienr Fassung aufbauen.

'Bearbeitet/Erstellt unter Excel 2010
Option Explicit
'Documentation: http://www. _
online-excel.de/excel/singsel_vba.php?f=57
Public WithEvents thisValidate As MSForms.TextBox
Private Sub thisValidate_Change()
If thisValidate.Tag = "date" Then
thisValidate.ControlTipText = fncDate(thisValidate.Object)
End If
End Sub
Private Function fncDate(oControl As Object) As String 'MSForms.TextBox
Dim IsADate As Boolean
IsADate = False
If IsDate(oControl.Value) Then 'RegExValidate(oControl.Value, "^\d{2}\.\d{2}\.\d{4}$")
If Format(CDate(oControl), "DD.MM.YYYY") = oControl.Text Then IsADate = True
End If
If IsADate = False And oControl.Value  "" Then
oControl.BackColor = RGB(255, 64, 64)
fncDate = _
"Bitte geben Sie das Datum im Format tt.mm.jjjj ein. Beispiel: 01.01.2014"
Else
oControl.BackColor = RGB(255, 255, 255)
fncDate = ""
End If
End Function

Da der Code der Sub relativ kurz ist, ist es ggf. einfacher ohne Function zu arbeiten.

'Alternative
Private Sub thisValidate_Change()
Dim bolCheck As Boolean
If thisValidate.Tag = "date" Then
With thisValidate
bolCheck = False
If IsDate(.Value) Then 'RegExValidate(oControl.Value, "^\d{2}\.\d{2}\.\d{4}$")
If Format(CDate(.Value), "DD.MM.YYYY") = .Text Then bolCheck = True
End If
If bolCheck = False And .Value  "" Then
.BackColor = RGB(255, 64, 64)
.ControlTipText = _
"Bitte geben Sie das Datum im Format tt.mm.jjjj ein. Beispiel: 01.01.2014"
Else
.BackColor = RGB(255, 255, 255)
.ControlTipText = ""
End If
End With
End If
End Sub

Gruß
Franz

Hallo Erik,
Dein Ziel in der Eingangsfrage war ja, möglichst Klassenprogrammierung für die Eingabe in Textboxen zu benutzen. und da gibt es eben für diese TB's ein großen Nachteil: man kann nicht Abfragen, in welche Textbox (falls es mehrere gibt), hat denn der User geklickt und macht darin die Eingabe. Also wieder weg von der Kl.-Programmierung und hin zu den normalen UserForm-Ereignissen.
Sicher ist die Validierung der Eingabe sinnvoll und vorallem notwendig. Aber was würde der Smartphone-User sagen, wenn keine Kalender-App aufpoppt, sondern per Tastatur das Datum eingegeben werden müßte. Das Wörtchen mit 'sch' würde wohl öfters fallen, nur weil er den Punkt an der falschen Stelle versuchte einzugeben.
Also nix für ungut und einen schönen Wochenbeginn wünscht
Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Steuerelement in Klasse übergeben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Steuerelement in Klasse übergeben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread