Eerste 4 tekens verwijderen in cel als de cel meer dan 4 tekens heeft?

[kaan]

Beste allen,

Ik probleem al enkele dagen volgende probleem stuk op te lossen:
Ik heb een rij met tekens als voorbeeld rij F1 tot F100 met de volgende gegevens.

W74*W44
W03*
S16
W83 W53
W81*W51
W84 W54
W82 W52
S13
W79*W49
W66*W10

Nu wil ik met een module deze uitfilteren tot de laatste 3 tekens!

De opdracht is als volg: Als de cel meer dan 4 tekens heeft dan de eerste 4 tekens verwijderen en anders niets doen!

Tijdens mijn zoektocht op internet heb ik wel een module gevonden die wel gedeeltelijk doet wat ik wil maar het filters overal de eerste 4 tekens uit.
Ik wil niet dat het overal de eerste 4 tekens verwijdert maar alleen als er meer dan 4 tekens zijn.
Hoe kan ik dat doen?

Sub snb()
  [F1:F90] = [if(F1:F90="","",if(len(F1:F90)>3,"",F1:F90))]
  Columns(1).SpecialCells(4).EntireRow.Delete
End Sub

 

[HSV]

Sub snb()
  [F1:F90] = [if(F1:F90="","",if(len(F1:F90)>4,mid(f1:f90,5,len(f1:f90)),F1:F90))]
End Sub

 

[kaan]

Hallo Harry,

Het werkt uitstekend.

Ik zie dat ik ook de * tekens over hou wat ik eigenlijk niet nodig heb.
Kan het ook met een slimme trucje verwijderd worden?

Groet, Kaan

 

[HSV]

Ik had dit geprobeerd:

Sub snb()
  [f1:f90] = [if(F1:F90="","",if(len(F1:F90)>4,substitute(mid(f1:f90,5,len(f1:f90)),"*",""),F1:F90))]
End Sub

maar het is dit geworden.

Sub snb()
  [f1:f90] = [if(F1:F90="","",if(len(F1:F90)>4,mid(f1:f90,5,len(f1:f90)),F1:F90))]
  [f1:f90].Replace "~*", ""
End Sub

 

[kaan]

Harry,

Het werkt perfect, doet wat ie moet doen.

Bedankt dat je zo snel reageerde en mijn probleem opgelost heb.

Groet, Kaan

 

[HSV]

Graag gedaan kaan.