[EXCEL] Cel is onderdeel van Named Range

[bluesbrother]

Ik heb een named Range "DagenVanDeWeek" en ik wil een functie maken die start als het
Worksheet_Change event getriggerd wordt en dan kijkt of een bepaalde cel lid is van deze named range en dan iets doet. Dat iets daar kom ik dan wel uit.

Maar ik kom niet verder dan de actieve cell :

code:

Application.ActiveCell.Address

vergelijken met de totale range.

code:

ActiveWorkbook.Names.Item("DagenVanDeWeek")

Dat gaat dus niet werken.

Ik heb wel het e.a. gedaan met VBA voor Access maar ik moet nu in excel wat doen.
Maar ik kom er niet uit. Ik heb wat video lessen gekeken, en op internet gezocht maar heb nog niet gevonden wat ik nodig heb.

Ik vond wel dit:
http://www.ozgrid.com/VBA/run-macros-change.htm

Het kwam nog het dichtste bij.

Maar ik zit vast.

[onkl]

Kijk eens naar de functie intersect, die gebruik je bijvoorbeeld zo:

Visual Basic:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Application.Names("naam").RefersToRange) Is Nothing) Then
    MsgBox "Bingo"
End If
End Sub

[bluesbrother]

Vandaag weer de hele dag zitten klooien maar ik kom er maar niet uit.
Voorbeelden bekeken en ik heb het werkend gekregen door er gewoon 2 range namen in te zetten:

code:

Dim InterS As Range
    
    Worksheets("Blad1").Activate
            
    Set InterS = Intersect(Range("RangeNaam1"), Range("RangeNaam2"))

    If InterS Is Nothing Then

    MsgBox "ze hebben niks met elkaar te maken"
    Else
    InterS.Select
    End If

Bovenstaande werkt dus gewon.

Onderstaande dus niet.
Ik heb een range met de naam "RangeNaam", Set de Rnge1 als de actieveCell en vergelijk die dan met de RangeNaam. Zit ie er in doe dan wat, ziet ie er niet in doe dan wat anders.
Maar de waarde van de actieve cel is bijvoorbeeld A1 en dat wordt vegeleken met een hele range.
Gaat daar dan iets fout?

code:

    Dim Rnge1  As Range
    Dim InterS As Range
    
    Worksheets("Blad1").Activate
    
    Set Rnge1 = Application.ActiveCell.Address
    
    Set InterS = Intersect(Range("RangeNaam"), Range(Rnge1))

    If InterS Is Nothing Then

    MsgBox "ze hebben niks met elkaar te maken"
    Else
    InterS.Select
End If

[Verwijderd]

Set Rnge1 = Application.ActiveCell
Set InterS = Intersect(Range("RangeNaam"), Rnge1)
je definieert rnge1 als een bereik(=object), bijgevolg moet je het ook zo blijven behandelen in verdere statements. ook oppassen met onvolledig gekwalificeerde paden, als je niet in het juiste werkblad of werkmap zit kan dit ook problemen opleveren.

[bluesbrother]

Super het werkt, bedankt.
weet je nu nóg niet dat topics níet op slot gaan als de vraag is beantwoord?

[ Voor 51% gewijzigd door Lustucru op 27-09-2006 09:45 ]