• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

selectie in een range

Status
Niet open voor verdere reacties.
G

glda19

Gebruiker
Lid geworden
14 jan 2008
Berichten
919
Hi

Ik zou graag op het volgende testen of een aantal geselecteerde rijen en kolommen binnen een bepaald bereik vallen
Stel ik selecteer b4 tot f4 en het bereik is b4 f9 dus is ok. Maar b4 tot g4 valt buiten het bereik dus daar van graag een melding
 
Probeer deze eens:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim InRange As Boolean
    If Target.Count > 1 Then
        For Each cl In Range(Target.Address)
            If Not Intersect(Range(cl.Address), Range("B4:F9")) Is Nothing Then
                InRange = True
            Else
                InRange = False
            End If
        Next cl
        If Not InRange Then
            MsgBox "Onjuiste selectie", vbCritical
        End If
    End If
End Sub
 
Laatst bewerkt:
@glda19:
Op zich is dat geen probleem, maar laat het dan hier en op het andere forum ook weten, om te voorkomen dat er dubbel werk voor je wordt gedaan.
 
Laatst bewerkt:
wat doe ik verkeerd ik selecteer 2 cellen en target.count krijt waarde 1
 
Ik kan hier vandaan niet zien wat je doet natuurlijk.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan