Special Cells, nu alfa-numeriek

[Gert Bouwmeeste]

Goedemorgen,

In een Macro staat de volgende regel:

For Each cl In Sheets("Orgstruct").Columns(16).SpecialCells(xlCellTypeConstants, xlNumbers)

In kolom 16 bevinden zich echter geen nummers meer, maar alfa-numerieke gegevens (zoals "215_123456"). Hoe zou ik deze regel moeten veranderen om het met alfa-numerieke gegevens te laten werken?

 

[OctaFish]

Daar kun je héél makkelijk zelf achter komen door de help functie te gebruiken. Die zit daar natuurlijk ook niet voor niks . Als je de cursor in het woord SpecialCells zet en op <F1> drukt, zie je alle opties en constanten keurig netjes vermeld. Waaronder dus ook de XlSpecialCellsValue-constanten.

 

[zapatr]

Ik zou het zonder SpecialCells doen:

Dim cl As Range
For Each cl In Sheets("Orgstruct").Range("P1:P100")
   If WorksheetFunction.IsText(cl.Value) Then
      ' hier wat er moet gebeuren
      '
   End If
Next cl