Opgelost <> "" vervangen door 'is een getal'

[trainers]

Zie https://www.helpmij.nl/forum/thread...en-cel-binnen-een-gebied.973812/#post-6407866

Werkt prima, maar soms zit er op de betreffende regel een cel met een spatie. Die cel wordt dus ook gekleurd, hetgeen ook logisch is.
Heb zitten stoeien met IsNumeric maar kom hier niet verder mee. Ook gekeken of <0 en >0 werkte, uiteraard dus niet want een lege cel is altijd <0.

Option Explicit
Dim CL As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [OMSCHRIJVING]) Is Nothing Then
        [B3:F8].Interior.Color = xlNone
        For Each CL In Target.Resize(, 5)
            If CL <> "" Then CL.Interior.Color = 13434879
'            If CL IsNumeric Then CL.Interior.Color = 13434879   'werkt niet
'            If CL = Numeric Then CL.Interior.Color = 13434879   'werkt niet
            Next
    Else
        [B3:F8].Interior.Color = xlNone
    End If
End Sub

OMSCHRIJVING is overigens een benoemde range.
Bedoeling is dat de cellen waar een bedrag in staat (kan zowel positief alsook negatief zijn) van een kleurtje worden voorzien.

Waar zit mijn denkfout?

Groet,
Trainers

 

[HSV]

Niet alles bekeken maar hier in ieder geval.
If CL IsNumeric then
moet zijn:
If isnumeric(cl) then

 

[trainers]

Dank voor je reactie HSV, maar geeft niet het gewenste resultaat.

 

[AHulpje]

If Trim(CL) <> "" Then CL.Interior.Color = 13434879

 

[emields]

kan je ook oplossen met VO

 

[edmoor]

Of wat AHulpje al zei:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim CL As Range
    Range("B3:F8").Interior.Color = xlNone
    If Not Intersect(Target, [OMSCHRIJVING]) Is Nothing Then
        For Each CL In Target.Resize(, 5)
            If Trim(CL) <> "" Then CL.Interior.Color = 13434879
        Next
    End If
End Sub

 

[trainers]

@emields: dank voor je bijdrage maar geeft niet het gewenste resultaat.
Alle cellen met en bedrag worden nu gekleurd.

@AHulpje en @edmoor
BINGO!
Mijn dank.

Groet,
Trainers

 

[snb]

1. gebruik ingebouwde excelmethoden i.c. specialcells
2. vermijd dubbele instrukties
3. stroomlijn VBA-code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    [B3:F8].Interior.Color = xlNone

     For Each it In Intersect(Target, [OMSCHRIJVING]).Resize(, 5).SpecialCells(2, 1)
        it.Interior.Color = 13434879
     Next
End Sub

 

[trainers]

Zeer gestroomlijnd, complimenten snb.
Echter wordt de cel in kolom B niet gekleurd.

Groet,
Trainers