*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Intersect(Target , Range(".......")  (gelezen 2763 keer)

0 leden en 1 gast bekijken dit topic.

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Intersect(Target , Range(".......")
« Gepost op: 04 september 2008, 21:48:08 »
Hello,
Bijgevoegd excel bestandje is geschreven om enkel
bepaalde cellen te kunnen bewerken.
OK via protectie kan dat ook, maar ik wil de sheet niet
in protectie zetten.
De bedoeling is om enkel in de cellen B2:G10 en F2:H10
waarden in te vullen.
Er zit echter een fout in de VB code.
Als ik er de range B2:H10 bijvoeg werkt het niet meer.
De ranges zijn maar ter illustratie.

Firmin
Gelogd
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline LucB

  • Lid
  • *
  • Berichten: 55
  • Groeten Luc
Re: Intersect(Target , Range(".......")
« Reactie #1 Gepost op: 05 september 2008, 10:29:52 »
Dag Firmin,

Wil je deze code eens proberen.

Code: [Selecteer]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Application.Intersect(Target, Range("b2:d10")) Is Nothing Or Not Application.Intersect(Target, Range("F2:H10")) Is Nothing Then
       MsgBox "selectie enkel mogelijk in gekleurde cellen"
   End If
End Sub
Gelogd
Windows XP Prof SP2, AMD DualCore 4400, 1024 MB RAM, NTFS, Norton AntiVirus, Internet Explorer 7.0, Outlook Express 6

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Intersect(Target , Range(".......")
« Reactie #2 Gepost op: 05 september 2008, 13:33:21 »
Luc, Waarom 2x de intersect-functie?
Code: [Selecteer]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Application.Intersect(Target, Range("b2:d10,F2:H10")) Is Nothing Then
       MsgBox "selectie enkel mogelijk in gekleurde cellen"
   End If
End Sub

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline LucB

  • Lid
  • *
  • Berichten: 55
  • Groeten Luc
Re: Intersect(Target , Range(".......")
« Reactie #3 Gepost op: 05 september 2008, 13:49:19 »
Dag Leo,

Ik heb het falikant verkeerd begrepen.

Dank voor de correctie.
Gelogd
Windows XP Prof SP2, AMD DualCore 4400, 1024 MB RAM, NTFS, Norton AntiVirus, Internet Explorer 7.0, Outlook Express 6

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re: Intersect(Target , Range(".......")
« Reactie #4 Gepost op: 05 september 2008, 21:56:33 »
RedHead ,
Ik heb mijn fout in de code gezien.
Had gezet Range("B2:D10"),("F2:H10") ipv
Range("B2:D10,F2:H10")
Thanks
Firmin
Gelogd
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Intersect(Target , Range(".......")
« Reactie #5 Gepost op: 06 september 2008, 00:34:19 »
Firmin,
Citaat
via protectie kan dat ook, maar ik wil de sheet niet in protectie zetten
Hou je er wel rekening mee dat als de gebruiker bij het openen van de sheet het inschakelen van de macro's afwijst, het blad dus volkomen bereikbaar is? Cellen locken in combinatie met een beveiligd blad is dan echt beter...

@LucB, geeft toch niets! ;) Vaak leer ik iets van jou en ben dus blij dat ik nu iets terug kan doen.

Groet, Leo

Gelogd
______________________________

Groet, Leo
Pagina's: [1]   Omhoog
 


www.combell.com