Dato i kolonne, Excel

Sub konverter()
    For ræk = 1 To 9
        Range("A" & ræk).Select
        Selection.NumberFormat = "0"
    Next ræk
End Sub

Der sker ikke rigtig noget

40995
40993
41358
41723
42088
40993
40628
40993
40993

sådan ser det ud hos mig efter "konverteringen"

- du er velkommen til at sende din fil. @-adresse under min profil.

Det er muligt, at det, som ligner datoer ikke er datoformat

Måske - men hvis du sender filen skal jeg se på det..

Det hjalp på din fil:

Sub konverter()
Dim dato As Date
    For ræk = 2 To 10
        dato = Range("A" & ræk)
        Range("A" & ræk).Select
       
        With Selection
            .NumberFormat = "0"
            .Value = dato
        End With
    Next ræk
End Sub

Virker perfekt. Tak.
Lægger du et svar?

På falderebet - kan man i stedet for et forudineret rækkeantal, få makroen til kun at "formatere" de rækker, hvor der er data.

Fint - så får du et nyt svar på den sidste kode.

JA - prøv at sende et eksempel - eller læg det her ud..

Jeg forstår ikke helt, hvad du mener - skal jeg oprette nyt spørgsmål?

Prøv med:

Sub konverter()
Dim dato As Date
Sidste = Range("A65536").End(xlUp).Row
    For ræk = 2 To Sidste
        dato = Range("A" & ræk)
        Range("A" & ræk).Select
       
        With Selection
            .NumberFormat = "0"
            .Value = dato
        End With
    Next ræk
End Sub

Tilbage igen

Tak for dit svar Store-Morten.Virker.

Supertekst sendte dette, som også virker og ikke sætter nuller i tomme celler.

Sub konverter()
Dim dato As Date, sidsteRække As Long
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 2 To sidsteRække
        If Range("A" & ræk) <> "" Then
            dato = Range("A" & ræk)
            Range("A" & ræk).Select
           
            With Selection
                .NumberFormat = "0"
                .Value = dato
            End With
        End If
    Next ræk
End Sub