To nemáte dávať do listu ani workbooku, ale do kódu formulára. Neviem aké údaje to má zožrať, ale občas treba myslieť aj na formát.
Private Sub UserForm_Initialize()
'Label1.Caption = List1.Cells(5, 4).Value2
Label1.Caption = Format(List1.Cells(5, 4).Value2, IIf(List1.Cells(5, 4).NumberFormat = "General", "", List1.Cells(5, 4).NumberFormat))
End Sub
Dajte do D5 dátum alebo číslo s 3 desatinami naformátované na 2 desatiny a uvidíte rozdiel.
EDIT: Iste, môžete použiť aj List1.Cells(5, 4).Text, ak je bunka dostatočne široká a neobsahuje chybu, je to jednoduchšie. Obe majú úskalia.
citovat