Fjern det ubruglige i celler

Jeg mener bare at celler skal tømmes for ubruglig ting

Prøv denne VBA-rutine:
Sub Rens_celler_der_ikke_indeholder_tal()
'Arket du vil gennemsøge
    Dim ark As String: ark = "Ark1"
'Celleområdet
    Dim Omraade As String: Omraade = "a1:b10"
   
    For Each c In Worksheets(ark).Range(Omraade).Cells
        If Not IsNumeric(c.Value) Then c.Value = ""
    Next c
End Sub

Svar tak

Svar tak !

Lukkes