Bryta ut text ur en cell räknat från höger

[Loranga]

Aloha,

Jag har en fil där f kolumnen:s värden består av en lång text ex.
4834810.Blabla.2006-10-09.22905
4798344.Jadajada.2006-09-29.1699
9515241...20060925-31

vad jag försöker göra är att få fram en vba snutt som kan bryta ut värderna till höger om den sista punkten och placera dem i en annan kolumn:
4834810.Blabla.2006-10-09. | 22905
4798344.Jadajada.2006-09-29. | 1699
9515241... | 20060925-31

 

[fairwinds]

Hej Loranga!

Testa:

Sub xxx()

Dim Omr As Range
Dim AktCell As Range

Set Omr = Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)

With CreateObject("vbscript.regexp")
    .Pattern = "[^\.]+$"
    For Each AktCell In Omr
        Set mönster = .Execute(AktCell.Value)
            AktCell = .Replace(AktCell, "")
            AktCell.Offset(0, 1) = mönster(0)
    Next AktCell

End With