datumnotatie aanpassen met VBA

[Egbert12345]

Hoi allen,

Ik wil een toepassing maken in Excel die met een selectiebestand werkt, waarbij de datum uit een csv-bestand wordt gehaald. Die notatie is dus omgedraaid. Zie mijn voorbeeld. Nu kan die die notatie met een formule aanpassen, maar ik wil dat graag in een macro doen. Hebben jullie een suggestie hoe dit opdracht eruit moet zien?

groet Egbert

 

[VenA]

Hoe haal je de gegevens uit het csv bestand? Als je het op de juiste manier doet kan je de datum gelijk correct in Excel zetten. Kijk ook eens naar tekst naar kolommen.

 

[HSV]

Kan je de data niet direct goed uit de .csv verkrijgen?

Zet in ieder geval de cel-eigenschappen op standaard in kolom A alvorens je de code laat lopen.

Sub hsv()
Dim sv, i As Long
With Cells(1).CurrentRegion
 sv = .Value
  For i = 2 To UBound(sv)
    sv(i, 1) = Format(Evaluate("text(" & sv(i, 1) & " ,""####\/##\/##"")"), "mm/dd/yyyy")
  Next i
 .Value = sv
End With
End Sub

Of:

Sub hsv()
 Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Name = "b"
 [b] = [if(row(),text(b,"####\/##\/##"))]
End Sub

 

[Egbert12345]

Bedankt maar weer.