aslect() steeds dezelfde random getallen

[Kaptain]

hoi wigi,

ik heb je nieuwe code ingevoerd, maar toch gebeurt er hetzelfde.
Het geen ik doe is het volgende:

ik selecteer de cellen: A1, B1, F1, G1, H1 en I1. (dit doe ik met de ctrl toets ingedrukt)
Als ik dat doe, krijg ik dus een foutmelding en stopt ie bij de regel:
"If rLegeCellen.Count = Selection.Count Then"

Als ik ook de tussenliggende (in dit geval lege) cellen selecteer, krijg ik extra komma's en dus info die ik niet wil hebben....

Ik hoor graag van je.

 

[Wigi]

Zo dan

On Error Resume Next
    Set rLegeCellen = Selection.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not rLegeCellen Is Nothing Then
        If rLegeCellen.Count = Selection.Count Then
            MsgBox "Je hebt enkel lege cellen geselecteerd. De macro stopt hier.", vbInformation, Application.UserName
        End If
    Else
        sScheiding = ...

Wigi

 

[Kaptain]

Wigi..............

AMAZING!

 

[Wigi]

Wigi..............

AMAZING!

Zet de status van de vraag dan maar op opgelost aub.