Zo kunt u controleren of de actieve cel zich in een eerder gedefinieerd celbereik in uw tabel bevindt
Veel macro's reageren op de positie van de actieve cel. Maar hoe weet je of de actieve cel zich in een bepaald celbereik bevindt? Het is niet nodig om dit feit op te vragen met tijdrovende IF-commando's. Gebruik gewoon de functies van VBA om kruispunten tussen gebieden te creëren. De volgende Excel-macro laat zien hoe u dit doet:
Sub IstZelleImRbereich ()
Dim testgebied Als bereik
Testbereik instellen = bereik ("b5: c60")
Als Intersect (ActiveCell, testgebied) niets is, dan
MsgBox "De actieve cel is niet in het bereik" & _
Testgebied.Adres (False, False)
Anders
MsgBox "De actieve cel is in het gebied" & _
Testgebied.Adres (False, False)
Stop als
Einde sub
Om de macro te gebruiken, klikt u eerst op een cel. Roep dan de macro aan. Het controleert of de actieve cel zich in het celbereik bevindt dat u in de macro hebt gedefinieerd. Als dit niet het geval is, geeft Excel dit weer met een berichtvenster:
Als de actieve cel zich daarentegen in het opgegeven celbereik bevindt, geeft de macro dit feit ook weer met een berichtvenster:
Met de variabele TEST AREA geeft u aan welk doelgebied u op overlap in de macro wilt testen.
