Clever-Excel-Forum

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.

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

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^^

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

Perfekt vielen Dank

Enclave

Werner.M

Enclave

Werner.M

Enclave