Macro om een - te verwijderen en tussenliggende waarde te verplaatsen naar andere cel

[klompen]

Hallo allemaal,

Ik heb zojuist gezocht maar niet gevonden een marco om uit een lijst naam een min teken (-) te verwijderen en de tussenliggende naam te verplaatsen naar de onderliggende cel dus:

in cel A1 staat nu:

Testnaam1 - Testnaam2 - Testnaam3 - Testnaam4 - ETC

en in cel A2 staat nu:
Testnaam1a - Testnaam1b - ETC

Naar Blad2
A1 Testnaam1
A2 Testnaam2
A3 Testnaam3
A4 Testnaam4
A5 ETC
A6 Testnaam1a
A7 Testnaam1b
A8 ETC

Kan iemand mij hier mee helpen? Ik gebruik overigens office 2007 mocht dat tegenwoordig nog uitmaken.

 

[rebmog]

Zoiets?

Sub test()
    arr1 = Sheets("blad1").Range("A1:A4")
    For i = 1 To UBound(arr1)
        arr2 = Split(arr1(i, 1), " - ")
        Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(arr2) + 1, 1) = WorksheetFunction.Transpose(arr2)
    Next i
End Sub

Rebmog