ComboBox Fehler abfangen
05.05.2021 08:33:51
Raptor
ich habe auf einer Userform eine ComboBox mit dem Code:
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim tmp, dte As Date
tmp = Split(ComboBox2)
With DTPicker_Eintritt
If tmp(1) Like "Tag*" Then
dte = DateSerial(.Year, .Month, .Day + tmp(0))
Else
dte = DateSerial(.Year, .Month + tmp(0), .Day)
End If
End With
Ende_Probezeit = dte
End Sub
Gruß Rapter
Anzeige