Datoformat er forkert

Har du formateret din celle som en dato?

jeps, jeg har brugt CDate(værdi)

Hvis det kun er en enkelt celle, kan du placere markøren i cellen og bruge

ActiveCell.Value = Format(ActiveCell.Value, "dd-mm-yyyy")

Du kunne også formatere allerede på indsættelsestidspunktet.

Format(Cdate(værdi), "dd-mm-yy")

Ja for søren, det rigtig.

Datoerne fremkommer ved at jeg lægger [A1].currentRegion ind i et dobbelt array sådan:
a=[A1].currentRegion
og henter hver 10 værdi i kolonne 1 i arrayet (som er en dato) ud af arrayet og lægger ind et et andet array b som jeg så til sidst overfører til et ny område:

range(xxxx)=b

Hvordan vil du gøre her ?

NB: Hele makroen er her:


Private Sub CalcColumnHour(c As Long)
  Dim r1 As Long, r2 As Long
   
    r1 = 2
    r2 = 1
    out_length = 1
   
    Sum = 0
    counter = 0
    Do
        Do
            r2 = r2 + 1
            tmpTxt = Right(CDate(a(r2, 2)), 6)
            Sum = Sum + a(r2, c)
            counter = counter + 1
           
        Loop While tmpTxt <> ":00:00"
        TMP = Sum / counter
        out(out_length, c) = Sum / counter
        If c = 3 Then 'if first averagecolumn then add the time to column 2 og date to column 1
            out(out_length, 1) = CDate(a(r1, 1))
            out(out_length, 2) = a(r1, 2)
        End If
       
        r1 = r2 + 1
        counter = 0
        Sum = 0
        out_length = out_length + 1
    Loop While r1 <= UBound(a)
   

End Sub

Sub CalcAverageHour()
    out_length = 1
    a = [A1].CurrentRegion
   
    out_length = UBound(a, 2)
    ReDim out(1 To UBound(a, 1) / 6 + 1, 1 To UBound(a, 2)) '2-d array
   
    For c = 3 To UBound(a, 2)
        CalcColumnHour (c)
    Next c
       
    Sheets.Add after:=Sheets(1)
    On Error Resume Next
    Sheets(2).Name = "Time"
    Range(Cells(1, 1), Cells(UBound(out, 1), UBound(out, 2))).Select
    Range(Cells(1, 1), Cells(UBound(out, 1), UBound(out, 2))) = out
   
    Columns("b:b").NumberFormat = "hh:mm:ss;@"
    Sheets(1).Select
    Rows("1:1").Copy
    Sheets(2).Select
    Selection.Insert Shift:=xlDown
   
End Sub

Ok det var et lidt for stort spørgsmål for sølle 15 point.

Sender du et svar Ikrons, så du kan få point ?


NB:
Måske du også lige kunne fortælle mig, hvad jeg gør, hvis jeg har et større område med forkert dataformatering, som er fremkommet ved at hente en tekstfil ind.
Skal man ind og have fat i hver celle med "Format(Cdate(værdi)", "dd-mm-yy") eller ?

Det var såmænd ikke for stort - jeg har bare et job at passe :-)

Til dit oprindelige spørgsmål: Har du prøvet med
out(out_length, 1) = format(CDate(a(r1, 1)), "dd-mm-yy")?

Til det andet.
Det ville jeg gøre med en For Each Next løkke.

Undskyld jeg først reagerer nu - jeg er helt sikker på, at jeg for skrev et svar til dig i går.
Men væk er det.
Nogen gange synes at mine svar ikke kommer med selv om det tilsyneladende drønet ud i www efter tryk på send - eller også er det mig der kludre.

Nå men sender du ikke et svar?
Jeg vil prøve out(out_length, 1) = format(CDate(a(r1, 1)), "dd-mm-yy"

Her er et svar. Jeg håber at du får det til at virke.