Userform mit DAtum

[Enclave]

Hallo zusammen,
ich habe leider noch keine Lösung gefunden.

Ich habe eine Userform wo das aktuelle Datum steht
und eine Text box wo ich z.b 5 eintrage
jetzt möchte ich das das Datum von heute +5 Tage in eine Tabelle eingetragen wird.

(hoffe man versteht was ich meine)

ich weiß nicht wie ich das mache das er quasi date+textfeld1 macht bei der eingabe.

am liebsten wäre mir wenn sich das datums feld ja gleich aktualisiert während die userform auf ist und ich aus eine zahl eintrage.

[Werner.M]

Hallo,

Code:

Private Sub TextBox1_Change()
With Me.TextBox1
    If .Value <> "" Then
        If IsNumeric(.Value) Then
            If InStr(.Value, ",") = 0 And _
            InStr(.Value, ".") = 0 And _
            InStr(.Value, ":") = 0 And _
            InStr(.Value, "-") = 0 Then
                Range("A1") = Date + CLng(.Value)
            Else
                MsgBox "Fehler: Nur ganze Zahlen zulässig."
                Range("A1") = Date
                .Value = ""
            End If
        End If
    End If
End With
End Sub

Gruß Werner

[Enclave]

Hallo Werner, danke für deine Antwort die hat mir sehr geholfen.

jetzt meine Frage wie schreibe ich den Code um wenn ich auch minus Zahlen nutzen möchte als -5 um die Tage zu reduzieren^^

[Werner.M]

Hallo,

anstatt dem anderen Code die beiden hier:

Code:

Private Sub TextBox1_Change()
With Me.TextBox1
    If .Value <> "" Then
        If IsNumeric(.Value) Then
            Range("A1") = Date + CLng(.Value)
        End If
    End If
End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case KeyAscii
    Case Asc("0") To Asc("9"), Asc("-")
    Case Else: KeyAscii = 0
  End Select
End Sub

Und nein, beim anderen Code fehlten keine End If.

Gruß Werner

[Enclave]

Perfekt vielen Dank