Formatierung Datum bei Eingabe Userform

Forumthread: Formatierung Datum bei Eingabe Userform

25.10.2024 13:24:03

MichaB2701

Eine Tabelle wird per Userform in Form von Datensätzen gefüllt, bestehend aus mehreren Spalten.

Die erste Spalte enthält das Datum.

Userbild

Leider hat dies stets eine unterschiedliche Formatierung und erzeugt Probleme beim Sortieren, siehe Beispielbild im Anhang.

Kennt jemand den Grund dafür?
Lässt sich das Datum bei Eingabe in die Userform bzw. beim Schreiben des Datums von der Textbox in die Tabelle einheitlich formatieren?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatierung Datum bei Eingabe Userform

25.10.2024 13:37:28

Onur

Poste doch mal die Datei und keine Bildchen.
Und wenn schon Bilder, dann von den Daten und nicht vom Filterfenster.

AW: Formatierung Datum bei Eingabe Userform

25.10.2024 14:41:22

Alwin Weisangler

Hallo Micha,

deine im Userform enthaltenen Textboxen geben wie es der Name sagt Text aus. Somit steht das Datum als Text in der Zelle. Es braucht also CDate als Typenkonvertierung.

Beispiel für Datum aus Textbox in Listobjekt in Tabelle1 (Modulname):



If IsDate(TextBox1) Then Tabelle1.ListObjects(1).DataBodyRange.Cells(1, 1) = CDate(TextBox1)

Gruß Uwe

AW: Formatierung Datum bei Eingabe Userform

27.10.2024 12:39:31

MichaB2701

Danke für die Rückmeldung Uwe!

Die folgenden 3 Codes für 3 Befehlsschaltflächen führen Änderungen an den Tabelleneintragungen durch (1), führen einen neuen Eintrag durch (2) und Löschen einen Tabelleneintrag (3).
Wie füge ich denn da die Typenkonvertierung ein?

Private Sub CommandButton3_Click()

    Dim I&, arr()

    Sperre = True

    With ListBox1

        ReDim arr(1 To 1, 1 To .ColumnCount - 1)

        For I = 1 To .ColumnCount - 1

            arr(1, I) = Controls("TextBox" & I)

            .List(.ListIndex, I) = arr(1, I)

        Next I

        Tabelle1.ListObjects(1).DataBodyRange.Cells(.List(.ListIndex, 0), 1).Resize(1, UBound(arr, 2)) = arr

        End With

    ComboboxenLaden

    DatenLaden

    Sperre = False

End Sub



Private Sub CommandButton4_Click()

    Dim I&, arr()

    Sperre = True

    With ListBox1

        .AddItem Tabelle1.ListObjects(1).ListRows.Count + 1

        ReDim arr(1 To 1, 1 To .ColumnCount - 1)

        For I = 1 To .ColumnCount - 1

            arr(1, I) = Controls("TextBox" & I)

            .List(.ListCount - 1, I) = arr(1, I)

           Next I

        Tabelle1.ListObjects(1).ListRows.Add.Range.Resize(1, UBound(arr, 2)) = arr

          End With

    Sperre = False

End Sub



Private Sub CommandButton6_Click()

    Tabelle1.ListObjects(1).ListRows(ListBox1.List(ListBox1.ListIndex, 0)).Delete

End Sub

AW: Formatierung Datum bei Eingabe Userform

01.11.2024 20:53:42

MichaB2701

@Alwin Weisangler alias Uwe: Kannst Du mir eine Rückmeldung anhand des Codes geben, wo ich Deinen hilfreichen Beitrag in den Code einarbeite?

Beliebteste Forumthreads (12 Monate)

Formatierung Datum bei Eingabe Userform

Forumthread: Formatierung Datum bei Eingabe Userform

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread