AW: VBA falsche Datumsanzeige in ListBox
27.05.2020 20:09:59
Peer
Hallo Matthias.
Wie immer von dir einsame Klasse. Funktioniert.
Ich habe die Eigenschaft von UF Teilnehmer ShowModal auf true gesetzt und den Code noch verfeinert.
Jetzt bin ich noch gespannt, ob alles im Alltag problemlos läuft.
Private Sub btn_Close_Click()
Dim zeile As Long
Dim x As Long
Dim wksTN As Worksheet
Set wksTN = Sheets("Teilnehmer")
With frm_Teilnehmer.lst_Teilnehmer
zeile = .ListIndex
If zeile = -1 Then
Unload Me
Exit Sub
End If
If opt_Herr.Value = True Then
.List(zeile, 0) = "Herr"
ElseIf opt_Frau = True Then
.List(zeile, 0) = "Frau"
End If
.List(zeile, 1) = txt_Name
.List(zeile, 2) = txt_Vorname
.List(zeile, 3) = txt_PersNr
.List(zeile, 4) = txt_OE
.List(zeile, 5) = txt_Taetigkeit
.List(zeile, 6) = txt_GB
.List(zeile, 7) = CDate(dat_Geb)
End With
x = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 8) 'Index für _
die Zeilennummer
If opt_Herr.Value = True Then
wksTN.Cells(x, 1).Value = "Herr"
ElseIf opt_Frau.Value = True Then
wksTN.Cells(x, 1).Value = "Frau"
End If
wksTN.Cells(x, 2).Value = frm_TN_ADD.txt_Name.Value
wksTN.Cells(x, 3).Value = frm_TN_ADD.txt_Vorname.Value
wksTN.Cells(x, 4).Value = frm_TN_ADD.txt_PersNr.Value
wksTN.Cells(x, 5).Value = frm_TN_ADD.txt_OE.Value
wksTN.Cells(x, 6).Value = frm_TN_ADD.txt_Taetigkeit.Value
wksTN.Cells(x, 7).Value = frm_TN_ADD.txt_GB.Value
wksTN.Cells(x, 8).Value = Format(frm_TN_ADD.dat_Geb.Value, "DD.MM.YYYY")
Unload Me
End Sub
Zu guter Letzt muss ich hier allen Usern für ihre Hilfe danken. Jeder ist ein Bereicherung für mich. Bei dem einen oder anderen vermisst man ab und zu die Gelassenheit, aber die meisten sind freundlich und geduldig unterwegs.
GUT, DASS ES EUCH GIBT.
LG
Peer