Thema Datum  Von Nutzer Rating
Antwort
Rot Datum ohne Punkt - nach Eintrag mit Punkt
19.06.2023 11:15:39 chris58
NotSolved
19.06.2023 11:23:45 Gast88189
NotSolved
19.06.2023 12:13:07 xlKing
NotSolved
19.06.2023 15:58:09 chris58
NotSolved

Ansicht des Beitrags:
Von:
chris58
Datum:
19.06.2023 11:15:39
Views:
696
Rating: Antwort:
  Ja
Thema:
Datum ohne Punkt - nach Eintrag mit Punkt

Hallo !
Ich hätte eine Frage. Diese habe ich bereits vorige Woche im Herber-Forum gestellt, jedoch keine Antwort, die ich selber machen kann, bekommen. Ich scheine dafür einfach in Excel bzw. VBA nicht der richtige zu sein.

Zu meiner Frage:
Was muß ich in u.a. Code der für die Userform ist, ändern, damit weiterhin das Datum vorbelegt ist, jedoch bei Eintrag eines neuen Datums mit keinen Punkten (z.B.Eintrag 14062023 erscheint dann das Datum mit Punkten..........also 14.06.2023) dieses mit Punkten eingetragen wird,
Danke für Eure Hilfe
chris58

HIER DER UF-Code:

Private Sub txt_Datum1_AfterUpdate()
If IsDate(txt_Datum1.Value) Then
    lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value) + 1
Else
    MsgBox "Kein Datum"
    txt_Datum1.Value = Date
End If

 With txt_Datum1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With

End Sub
Private Sub txt_Datum2_AfterUpdate()
If IsDate(txt_Datum2.Value) Then
    lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value)
Else
    MsgBox "Kein Datum"
    txt_Datum2.Value = Date
End If
End Sub
Private Sub UserForm_Initialize()
txt_Datum1.Value = Date
txt_Datum2.Value = Date
lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value)
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datum ohne Punkt - nach Eintrag mit Punkt
19.06.2023 11:15:39 chris58
NotSolved
19.06.2023 11:23:45 Gast88189
NotSolved
19.06.2023 12:13:07 xlKing
NotSolved
19.06.2023 15:58:09 chris58
NotSolved