userform <24h richtig in tbl übertragen

Liebe Excel Gemeinde,
es wäre nett wenn mir jemand Unterstützung geben könnte.
Habe eine Userform wo ich daten in eine Tabelle übertrage. In einem txt Feld (txt_Fixstd) werden Werte >24h in der Form 40:00 eingetragen. In der Tabelle ist die Spalte mit [hh]:mm eingestellt. Habe gelesen mit dem Code " CDbl(CDate(Me.txt_Fixstd.Value))" muß das Textfeld bestückt sein um es richtig zu übertragen.
Meine Speicherung schaut so aus:

Private Sub cmb_speichern_Click() 'speichern Werte



Dim letzte_Zeile As Long



 With Worksheets("tbl_Daten_1")

'Die letzte beschrieben Zeile in Spalte A ermitteln

letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row



  .Cells(letzte_Zeile, 1) = txt_Mitgl_NN.Text

   .Cells(letzte_Zeile, 2) = txt_Mitgl_VN.Text

    .Cells(letzte_Zeile, 3) = txt_Abtlg.Text

      .Cells(letzte_Zeile, 4) = txt_Dat.Text

       .Cells(letzte_Zeile, 5) = txt_Ort.Text

        .Cells(letzte_Zeile, 6) = txt_Thema.Text

         .Cells(letzte_Zeile, 7) = txt_Beginn.Text

          .Cells(letzte_Zeile, 8) = txt_Ende.Text

           .Cells(letzte_Zeile, 9) = txt_VB.Text

            .Cells(letzte_Zeile, 12) = cmb_Art.Text

             .Cells(letzte_Zeile, 10) = txt_Fixstd.Text

'    Else

'        MsgBox "Bitte ein gültiges Zeitformat eingeben (z.B. 25:30)", vbExclamation

'    End If

End With

 MsgBox "Daten wurden gespeichert.", vbInformation

 Unload ufrm_Mitglied_neu



End Sub

Meine Frage: wie muß ich dieses Codeschnippsel einbauen ?

Im Voraus vielen Dank für Eure Unterstützung
Gruß Richard

Hi
einfach direkt reinschreiben:

.Cells(letzte_Zeile, 10) = txt_Fixstd.Text

nutze hier die automatische Typerkennung bei der Eingabe in Excel.
die ist am flexibelsten und kann so Texte wie "40:00" als Zeitwert erkennen. CDate kann das nicht und und wandelt nur echte Uhrzeiten (&lt24:00) um.
zumindest bei mir in Excel 365 funktioniert das so.

sollte das so nicht funktionieren (was ja sein kann, wenn du eine ältere Excelversion hast), dann müsstest du den ZeitWert so zurückschreiben:

.Cells(letzte_Zeile, 10) = Split(txt_Fixstd.Text, ":")(0) / 24 + Split(txt_Fixstd.Text, ":")(1) / 1440

Wenn du das gleiche mit Datumswerten machen willst, musst du beachten dass es hier unterschiedliche Schreibweisen in Deutschland und Amerika gibt und bei VBA im Standardfall (.Value) die amerikanischen Schreibweisen angewendet werden.
Da du in die Textboxen die Datumswerte in "deutsch" schreibst und du auch ein deutsches Excel hast, kannst du sie dann am einfachsten mit .FormulaLocal in die Zelle schreiben

.Cells(letzte_Zeile, 4).FormulaLocal= txt_Dat.Text

Gruß Daniel

userform <24h richtig in tbl übertragen

Forumthread: userform <24h richtig in tbl übertragen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

userform <24h richtig in tbl übertragen

Forumthread: userform <24h richtig in tbl übertragen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread