Eerste teken verwijderen

[kevin hash]

Dag,
Ik ben nieuw hier. Ik programmeer al in VB.Net maar VBA is toch iet wat anders. Kan iemand me helpen. Ik zou uit gelijk welk een cel in excel dat ik selecteer het eerste teken willen verwijderen. als ik bv 4 cellen onder elkaar selecteer moet in iedere cel het eerste teken verwijdert worden.

dank

 

[Wigi]

Hoi

Sub eerstetekenverwijderen()

    Dim r As Range
    
    For Each r In Selection
        r.Value = Right(r.Value, Len(r.Value) - 1)
    Next

End Sub

Wigi

 

[Guus2005]

Hetzelfde alleen zou ik het Mid statement gebruiken.

Sub eerstetekenverwijderen()

    Dim r As Range
    
    For Each r In Selection
        r.Value = mid$(r.Value, 2)
    Next

End Sub

Met dank aan Wigi voor het voorbeeld.

doe er je voordeel mee.

 

[Wigi]

Bedankt Guus.

Het zijn allemaal variaties op hetzelfde thema, kies dus zelf maar wat je gebruikt.

Wigi

 

[kevin hash]

thx voor de hulp