Navigation

Hej.
Jeg sidder og bakser med en makro i Excel 2010.
Jeg importerer en CSV-fil hvori jeg vælger tre felter, det første er et datofelt som er formateret amerikansk (med punktum) men dansk rækkefølge dd.mm.yyyy
Endvidere er der en stjerne ved nogle af datoerne som jeg fjerne med en del af makroen.
Mit problem er at Excel formatere datoerne på amerikansk, så dagen bliver til måneden og måneden bliver til dagen.
Dog indtil dagen skifter til 12+. Derefter formatere den datoen på dansk.

Hvordan får jeg Excel til at formatere det efter "dd/mm/yyyy" ?

Men feltet formateres ikke til dato før jeg har markeret datoen og trykket enter.

Hvordan løser jeg det problem?

Min makro er postet her under:
----------------------
Sub AddCSV()
    strFile = Application.GetOpenFilename(Filefilter:="CSV Files (*.CSV),*.CSV")

    If strFile <> False Then
        LastRow = Range("A65536").End(xlUp).Row + 1

        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=Range("$A$" & LastRow))
            .Name = "JyskeDownload"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 1252
            .TextFileStartRow = 2
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = True
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(9, 9, 1, 1, 9, 1, 9, 9)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With

        Columns("C:C").Select
        Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

        Columns("A:A").Select
        Selection.Replace What:="~ ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Selection.Replace What:="~.", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Selection.NumberFormat = "dd/mm/yyyy"
    End If
End Sub
----------------------
På forhånd tak.

Navigation

CSV importering med makro og dato formatering