Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Textbox in Datumformat
22.05.2017 12:49:50
Naki
Hallo,
ich habe in einer UF mehrere Textboxen die in Datumsformat erscheinen sollen.
Der User soll nur die Zahlen, ohne Komma, eingeben können und die Ausgabe soll im Datumsformat erfolgen.
z. B. Eingabe 22052017-->Ausgabe 22.05.2017(TT.MM.JJJJ) und im Idealfall soll ich später mit den Werten rechnen können. (z. B. Alter)
Mit dem u.a. Code konnte habe ich leider kein Erfolg gehabt:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub
Könnt Ihr mir bitte Tipps geben wie ich das Problem lösen kann?
Muss ich den Textbox initilasieren, wenn ja, wie?
Welches Ereignis muss ich anwenden? (Change, AfterUpdate....?)
PS:DTP will ich nicht benutzen, da die Eingabe im Textbox schneller erfolgt.
Gruß, Naki

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox in Datumformat
22.05.2017 13:02:11
Crazy
Hallo
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 2 Then
TextBox1.Text = TextBox1.Text & "."
ElseIf Len(TextBox1.Text) = 5 Then
TextBox1.Text = TextBox1.Text & "."
End If
End Sub
MfG Tom
AW: Textbox in Datumformat
22.05.2017 13:14:57
Naki
Hi Tom,
vielen Dank für die schnelle Antwort. Klappt super.
Kann ich damit auch,z. B. das Alter der Person, mit dem Heutigem Datum berechnen?
Gruß
AW: Textbox in Datumformat
22.05.2017 13:18:17
Naki
Hi Tom,
vielen Dank für die schnelle Antwort. Klappt super.
Kann ich damit auch,z. B. das Alter der Person, mit dem Heutigem Datum berechnen?
Gruß
AW: Textbox in Datumformat
22.05.2017 13:18:31
Naki
Hi Tom,
vielen Dank für die schnelle Antwort. Klappt super.
Kann ich damit auch,z. B. das Alter der Person, mit dem Heutigem Datum berechnen?
Gruß
Anzeige
AW: Textbox in Datumformat
22.05.2017 13:21:56
Crazy
Hallo
vielleicht so?
Option Explicit
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 2 Then
TextBox1.Text = TextBox1.Text & "."
ElseIf Len(TextBox1.Text) = 5 Then
TextBox1.Text = TextBox1.Text & "."
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Alter As Long
Alter = DateDiff("yyyy", CDate(TextBox1), Date)
MsgBox Alter
End Sub
MfG Tom
AW: Textbox in Datumformat
22.05.2017 13:27:17
Naki
Danke :)
AW: Textbox in Datumformat
25.05.2017 12:00:27
Naki
Hallo Tom,
bei Anwendung deiner Formel erhalte ich bicht das tatsächliche Alter.
Bsp: Geb Datum: 01.12.1977 (Tatsächlich 39 Jahre -- ab 01.12.2017 soll 40 werden)
Ergenis deiner Formel: 40
Wie kann ich das Lösen?
Gruß
Anzeige
AW: Textbox in Datumformat
26.05.2017 05:34:16
Crazy
Hallo
mit der Suchmaschine meines Vertrauens bekam ich in 0,48 Sekunden dieses als
erstes Ergebnis
https://www.herber.de/forum/archiv/348to352/351818_alter_in_jahren_aus_Geburtsdatum_errechnen_vba.html
und daraus abgeleitet sieht der Code nun so aus
Option Explicit
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 2 Then
TextBox1.Text = TextBox1.Text & "."
ElseIf Len(TextBox1.Text) = 5 Then
TextBox1.Text = TextBox1.Text & "."
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox Alter(TextBox1)
End Sub
Function Alter(GebDatum)
Alter = Year(Date) - Year(GebDatum)
If DateSerial(Year(Date), _
Month(GebDatum), Day(GebDatum)) > Date Then
Alter = Alter - 1
End If
End Function
MfG Tom
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige