Datumsformat bei Label in UserForm
Konrad
ich habe untenstehendes Userform-Makro, wo in Label 2 die entsprechenden Werte aus der Zeile 4 bis 5 angezeigt werden sollen. In der Zeile 4 befindet sich ein Datumswert TT.MM.YYYY der allerdings in der UserForm als 40482 anstatt 31.10.2010 dargestellt wird. Weiß jemand Rat, damit das Datum richtig dargestellt wird?
Private Sub UserForm_Activate()
Dim lCol As Long, lRow As Long
lCol = Selection.Column
lRow = Selection.Row
Label1 = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Cells(lRow, 1).Resize(, _
_
7).Value)), " | ")
Label2 = Join(WorksheetFunction.Transpose(Cells(4, lCol).Resize(3)), " | ")
Label3 = Selection(1)
Label4 = Cells(lRow, 7)
End Sub
@ Rudi Maintaire: vielen Dank nochmals für deine Lösung vom Freitag. Bin erst jetzt dazugekommen das einzubauen.
Grüße
Konrad