VBA - hulp nodig over Worksheet_Change
Steve Mangelschots
In men eerste werkblad heb ik cel D5 Waarin ik een
weeknummer intoets deze weeknummer gaat opzoek naar een
week in werkblad 2 waarna hij de gevonden waarden naar
werkblad 1 kopieert met onderstaande code lukt dit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D5"), Target) Is Nothing Then
Zoeken
End If
End Sub
Nu is mijn probleem wanneer ik een waarde ingeef in
bereik C8:I27 en C31:I50 maar enkel in die twee bereiken
Zou ik graag hebben dat hij men sub Toevoegen uitvoert.
Hoe los ik dit op?
Ingrid Baplue
Intersect(Target, Range("C31:I50")) Is Nothing) Then
toevoegen
End If
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.
Steve Mangelschots schreef in 1909c01c44ca4$7bc48240$a301...@phx.gbl
anon...@discussions.microsoft.com
Bedankt voor je hulp,
Maar men probleem is er nog niet mee opgelost.
Ergens klopt er nog iets niet, telkens als ik "D5" invul
voert hij toch nog Toevoegen uit.
If Not Intersect(Target,Range("D5")) Is Nothing Then
Zoeken
End If
If Not (Intersect(Target, Range("C8:I27")) Is Nothing And_
Intersect(Target, Range("C31:I50")) Is Nothing) Then
Toevoegen
End if
(Ik dacht ElseIf maar da lukte ook nie)
(Zal weer wel iets heel stom zijn maar ja k'moet nog veel
leren)
Groetjes
Steve
RP aka Ronny
<anon...@discussions.microsoft.com> schreef in bericht
news:195df01c44d2e$0d586df0$a301...@phx.gbl...
Steve,
En als je tussen "Zoeken" en "End If" de regel "Exit Sub" plaatst?
Lukt het dan?
--
Met vriendelijke groeten
Ronny
Ingrid Baplue
'toevoegen' start. Hoe ziet de macro 'zoeken' eruit? Worden er daar
misschien cellen in gewijzigd binnen C8:I27 of C31:I50? Want dan start de
event natuurlijk terug.
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.
anon...@discussions.microsoft.com schreef in
195df01c44d2e$0d586df0$a301...@phx.gbl
Steve Mangelschots
:) stom van me natuurlijk dat is men probleem, Zoeken
gaat naar het een waarde in werkblad 2 zoeken en kopieert
deze naar werkblad 1 en dit in bereik (raad eens) en
toevoegen doet net het omgekeerde.
Ik ga naast cel D5 een knop ga zetten die zoeken uitvoert
en Toevoegen ga ik met Worksheet_Change uitvoeren.
Of is er toch een andere manier om dit optelossen?
Groetjes
Steve
>.
>
Steve Mangelschots
Nu ben ik het echt bont aan't maken da lukt ook nie
Geeft "natuurlijk" hetzelfde probleem!
Effe pauzeren
Morgen nog eens proberen.
Steve
>.
>
Ingrid Baplue
Application.EnableEvents = False
en eindig vervolgens met
Application.EnableEvents = True
--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.
Steve Mangelschots schreef in 19bff01c44d45$5e94f8c0$a001...@phx.gbl
Steve Mangelschots
Ingrid nogmaals bedankt voor de hulp.
ps: als ik ooit half zoveel van excel/vba ken als jij dan
zal ik een gelukig mens zijn.
Groetjes
Steve
>.
>