Function innerhalb eines Frame
06.07.2018 11:53:33
Berg
ich prüfe die Textboxen in einer Userform auf dessen Inhalte. Dies mache ich über eine Function, da ich keine Klassen schreiben kann:
Function TextBoxPrüfung(crtl As Control) As Boolean
If crtl = "" Then
Exit Function
ElseIf Not IsNumeric(crtl) Then
crtl.BackColor = RGB(100, 100, 199)
MsgBox ("Eingabe ist nicht vom Type Numeric!")
TextBoxPrüfung = True
ElseIf crtl > 1 Then
crtl.BackColor = RGB(255, 255, 255)
crtl = Format(crtl, "#,##0.00")
Else
crtl.BackColor = RGB(255, 255, 255)
crtl = Format(crtl, "0.00")
End If
End Function
Hier definiere ich die Textboxen die davon betroffen sind:
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call TextBoxPrüfung(ActiveControl)
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call TextBoxPrüfung(ActiveControl)
End Sub
Das ganze funktioniert sehr gut. Nur wenn ich um die Textboxen nachträglich einen Rahmen mache in der Userform (Frame1) zwecks der Übersichtlichkeit funktioniert der Code nicht mehr. Was und wie muss ich da ergänzen? Vorab besten Dank. Gruß