Hallo,
is er een code in VBA om de celeigenschappen zichtbaar te maken in het werkblad.
Stel, je selecteert cel A1 en je wilt in B1 de celeigenschappen van A1 weergeven (Getal, Valuta, Tijd etcera) dit via een macro, want in het werkblad zelf zal dit zeker niet kunnen.
dus iets als:
Cells(1, 2) = NumberFormat.Cells(1, 1)
Met een Msgbox heb ik het al gevonden, maar het is de bedoeling om de formule in een lus te zetten om zo het hele bereik te kunnen afgaan (en te tonen in een aangrenzende kolom)
Sub test1()
MsgBox "Het numberformat van cel A1 is " & _
Worksheets("Blad1").Range("A1").NumberFormatLocal
End Sub
PS: Heb het al gevonden:Sub test1()
For a = 1 To 100
With Worksheets("Blad1")
.Cells(a, 2) = .Cells(a, 1).NumberFormatLocal
End With
Next
End Sub
Bedankt, en eventuele suggestie zijn altijd welkom
SoftAid
Excel 2021