Textbox soll Rückgabewert erhalten
15.02.2021 09:02:18
Philipp
ich versuche gerade ein Userform zu erstellen, mit der ich Daten in Tabellen übertragen kann. Hierfür benötige ich mehrere Textboxen, die mir Datumswerte erfassen. Beim verlassen der Textbox soll der Inhalt überprüft werden, ob es sich auch um ein Datum handelt und zugleich in meine gewünschtes Format gebracht werden.
Damit ich nun nicht für jede Textbox den gleichen Code schreiben muss, habe ich die Idee gehabt, das ganze in eine Funktion zu Schreiben.
Dim xDate As String
Public Function DateCheck(getDate As String)
If IsDate(getDate) Then
MsgBox ("Ist ein Datum")
xDate = Format(getDate, "dd.mm.yyyy")
Else
MsgBox ("Ist kein Datum")
xDate = ""
End If
End Function
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DateCheck (TextBox1.Text)
TextBox1.Value = xDate
End Sub
Soweit funktioniert alles, ich würde nun jedoch gerne ohne die globale Variable "xDate" auskommen.
Kann ich von der Funktion einen Wert an die Textbox zurückgeben damit diese auch in meinem gewünschten Format dort erscheint? Wenn ja wie?
Schöne Grüße,
Philipp