Cell verwijderen op basis letters/nummers

[JesseVic]

Hallo,

Ik heb een excel file met in kolom K letters en nummers. Per cel in die kolom kan er maar een combinatie van letters staan (bvb EN of DE of FR) of een nummer combinatie (als tekst) (bvb: 12 of 35 of 87 of ...).
Nu wil ik een macro schrijven in VBA voor excel, dat vanaf cell 2 van kolom K, de scan gedaan wordt op bovenstaande checks. Indien er een nummer staat, dan moet de cell verwijderd/gewist worden, in het andere geval blijft de inhoud ongewijzigd.

Nu zijn die cellen en de inhoud "tekstinhoud", mss is dat belangrijke informatie?
Ik lever ook voor alle zekerheid de excel file mee.

Wie kan mij een handje helpen?

 

[edmoor]

Probeer deze eens. Kort door de bocht en zonder enige controle:

Sub LeegMaken()
    For i = 2 To 22
        If IsNumeric(Cells(i, 11)) Then Cells(i, 11) = vbNullString
    Next
End Sub

 

[plongske]

@Jesse
En een bedanking mag er niet af?

 

[JesseVic]

@Jesse
En een bedanking mag er niet af?

Dat werd in een mailtje gedaan omdat het me niet direct lukte om via deze weg te doen. edmoor kan dit bevestigen.
Bij deze excuses en een algemene bedanking. mvg

 

[plongske]

Goed dat het probleem is opgelost:thumb:

 

[edmoor]

Dat werd in een mailtje gedaan omdat het me niet direct lukte om via deze weg te doen. edmoor kan dit bevestigen.
Bij deze excuses en een algemene bedanking. mvg

Yep