Macro om de eerste 7 karakters te verwijderen

[davylenders123]

Ik heb een excel file met een 5500 titels in.
Die titel gaat vooraf door 4 nummers spatie - spatie.
Dus eigenlijk 7 karakters

Kan ik met een behulp van een macro de eerste 7 karakters verwijderen ?

vb titel
is "4892 - Settlers, The "
Moet worden "Settlers, The"

 

[popipipo]

eng: =RIGHT(A1;LEN(A1)-7)
ned: =rechts(A1;lengte(A1)-7)

Met deze formule moet het ook lukken.

 

[HSV]

Met VBA.
Test deze in een testbestandje.

Sub tst()
 Dim i As Integer
   With Sheets("Blad1")
    For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
     If Not .Cells(i, 1) = vbNullString Then
      .Cells(i, 1) = Right(.Cells(i, 1), Len(.Cells(i, 1)) - 7)
    End If
   Next i
 End With
End Sub

 

[davylenders123]

HSV

De code van u werkt perfect maar dan moeten de titel wel in kolom A staan.

Wat moet ik aanpassen om de code te kunnen gebruiken in kolom B.

En mischien weet je voor dit ook wel raad .

De 4 nummers die voor de titel staan zouden eigenlijk in kolom a moeten komen staan.
Kan dit ook via die code.

Nu ben ik dat manueel aan het doen maar is echt wel tijdrovend.
En wie weet kan het via die zelfde of andere code ook gedaan worden

 

[HSV]

Macrootje aangepast.

Sub tst()
 Dim i As Integer
   With Sheets("Blad1")
    For i = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
    If Not .Cells(i, 2) = vbNullString Then
    .Cells(i, 1) = Left(.Cells(i, 2), 4)
     .Cells(i, 2) = Right(.Cells(i, 2), Len(.Cells(i, 2)) - 7)
    End If
   Next i
 End With
End Sub

 

[davylenders123]

Hsv

B E D A N K T :thumb:

Hij werkt :thumb:

Dit zal mij veel werk besparen