Macro om datum door te trekken naar onderste variabel bereik

[Anemoontje]

Hallo,

Elke maand download ik een bestand vanuit SAP om in een D-base te gebruiken.
Ik ben op zoek naar een macro om de datum automatisch naar beneden door te trekken. De onderste lijn is echter elke maand variabel.

Iemand enig idee hoe ik dit kan doen?

Onderstaande heb ik nu, maar dat werkt jammer genoeg niet bij alle files, omdat de range bepaald is tot rij 1519. Dit is de maandelijks variabele.

Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=DATE(RIGHT(RC[-1],4), MID(RC[-1],4,2), LEFT(RC[-1],2))"
Range("H2").Select

Selection.AutoFill Destination:=Range("H2:H1519")

Range("H2:H1519").Select
Columns("H:H").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Alvast hartelijk bedankt.

 

[VenA]

Waarom gebruik je geen tekst naar kolommen? Dan heb je helemaal geen macro nodig.

 

[Anemoontje]

Dit is maar een klein deeltje van een grote macro. Hiervoor zijn al een heleboel andere manipulaties gedaan en ik wil dit automatiseren via een macro. Het bestand wordt vanuit uit SAP direct in xls omgezet.

 

[VenA]

Sub VenA()
  Columns(7).SpecialCells(2).Offset(1).SpecialCells(2).Offset(, 1).FormulaR1C1 = "=--SUBSTITUTE(RC[-1],""."",""-"")"
End Sub

 

[Anemoontje]

VenA,

Het werkt! Van harte bedankt voor uw hulp. :love:

 

[HSV]

Met VBA.

Sub hsv()
 Columns(7).TextToColumns [H1], 1, 1, , , , , , , , Array(1, 4)
End Sub

En eigenlijk kan het rechtstreeks in G1.