Private Sub UpDown1_UpClick()
 
  Dim wert
  Dim iSelStart As Integer
  Dim iSelLaenge As Integer
  Dim sTag As String
  Dim sDatum As String
  Dim sTime As String
 
  iSelStart = Me.txtDatum.SelStart
  iSelLaenge = Me.txtDatum.SelLength
  sTag = Me.txtDatum.Tag
  sDatum = Me.txtDatum.Text
  sTime = Mid(Me.txtDatum, 12, 5)
 
 
  wert = Me.txtDatum.SelText
    If IsNumeric(wert) = False Then
    MsgBox "Fehler"
  Else
        If sTag = "Tag" Then
            If CInt(wert) + 1 <= 31 Then
                'Me.txtDatum.SelText = wert - 1
                Me.txtDatum.Text = Format(DateSerial(Year(sDatum), Month( _
                  sDatum), Day(sDatum) + 1) & " " & sTime, "DD.MM.YYYY hh:mm")
                Me.txtDatum.SelStart = 0
                Me.txtDatum.SelLength = 2
            End If
 
        ElseIf sTag = "Monat" Then
            If CInt(wert) + 1 <= 12 Then
                'Me.txtDatum.SelText = wert - 1
                Me.txtDatum.Text = Format(DateSerial(Year(sDatum), Month( _
                  sDatum) + 1, Day(sDatum)) & " " & sTime, "DD.MM.YYYY hh:mm")
                Me.txtDatum.SelStart = 3
                Me.txtDatum.SelLength = 2
            End If
 
        ElseIf sTag = "Jahr" Then
            If CInt(wert) + 1 <= 9999 Then
                'Me.txtDatum.SelText = wert - 1
                Me.txtDatum.Text = Format(DateSerial(Year(sDatum) + 1, Month( _
                  sDatum), Day(sDatum)) & " " & sTime, "DD.MM.YYYY hh:mm")
                Me.txtDatum.SelStart = 6
                Me.txtDatum.SelLength = 4
            End If
 
        ElseIf sTag = "Stunde" Then
            If CInt(wert) + 1 <= 23 Then
                Me.txtDatum.SelText = wert + 1
            ElseIf CInt(wert) + 1 < 23 Then
                Me.txtDatum.SelText = 0
            End If
 
            Me.txtDatum.Text = Format(Me.txtDatum.Text, "DD.MM.YYYY hh:mm")
            Me.txtDatum.SelStart = 11
            Me.txtDatum.SelLength = 2
 
        ElseIf sTag = "Minute" Then
            If CInt(wert) + 1 <= 59 Then
                Me.txtDatum.SelText = wert + 1
            ElseIf CInt(wert) + 1 > 59 Then
                Me.txtDatum.SelText = 0
            End If
 
            Me.txtDatum.Text = Format(Me.txtDatum.Text, "DD.MM.YYYY hh:mm")
            Me.txtDatum.SelStart = 14
            Me.txtDatum.SelLength = 2
        End If
  End If
 
If IsDate(Me.txtDatum.Text) = False Then
    Me.txtDatum.Text = Format(sDatum, "DD.MM.YYYY hh:mm")
End If
 
End Sub