Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

na cel wijziging macro starten

4,216 views
Skip to first unread message

andre

unread,
Apr 11, 2003, 4:14:48 PM4/11/03
to
Ik wil een macro laten starten als de waarde in cel "A1"
gewijzigd wordt door een besturingselement(keuzelijst met
invoervak)

De tekst
Sub Macro()
If Range("A1").Value = "1" Then
' mijn macro
werkt alleen als ik in cel "A1" zelf iets neer zet en met
enter dit bevestig, de inhoud laten veranderen door het
besturings element start niet de macro.

Heeft iemand hiet een oplossing voor.

Alvast bedankt.

PeterS

unread,
Apr 11, 2003, 7:29:35 PM4/11/03
to
Ga met F11 naar VBA.
Kies daar het betreffende werkblad en klik rechter muistoets.
Kies nu code weergeven en type:

Private Sub WorkSheet_Change(Byval Target as Range()
If Target.Value = "1" Then
'jouw macro
End sub

--
Vragen is niet dom....doen zonder te weten, da's pas dom.
"andre" <and...@zonnet.nl> wrote in message
news:020b01c30067$006b4f50$a301...@phx.gbl...

Ingrid Baplue

unread,
Apr 12, 2003, 1:32:14 AM4/12/03
to
Private Sub Worksheet_Change(ByVal Target As Range)
'macro starten voor 1 bepaalde cel
If Target.Address = "$A$1" And Target = 1 Then
'start macro
End If
'macro starten voor alle cellen binnen een bereik
If Not Intersect(Target, Range("A1:D5")) Is Nothing Then
'start macro
End If
End Sub

Deze macro moet naar de werkblad-code gekopieerd worden:
http://users.pandora.be/ingrid/excel/copyvba.htm#blad

Ingrid

andre schreef in news:020b01c30067$006b4f50$a301...@phx.gbl

andre

unread,
Apr 13, 2003, 2:36:15 PM4/13/03
to
beste PeterS

Bedankt voor de goede raad maar mijn probleem blijft.
Als ik de waarde in cel "A1" wijzig met een besturings
element dan wordt daar niet naar gekeken.

Wat ik uit eindelijk wil is:
Met een keuze lijst met invoervak iets selecteren
cel1=tekst1 geeft 1 in uitvoercel
cel2=tekst2 geeft 2 in uitvoercel
cel3=tekst3 geeft 3 in uitvoercel
(met als extra optie om dit te bevestigen een commadbutton)
met de uitkomst in het uitvoercel moet dan macro 1, 2 of
macro 3 worden gestart .
Ik heb wel iets gevonden in de nieuws groep die zoiets
doet ,maar ook deze oplossing reageerd alleen als je zelf
iets in cel "A1" zet en dit bevesting met een enter.

kan het dan echt niet zonder die enter toets.

met vriendelijke groet andre
>-----Oorspronkelijk bericht-----

>.
>

andre

unread,
Apr 13, 2003, 2:43:14 PM4/13/03
to
beste PeterS

Bedankt voor de goede raad maar mijn probleem blijft.
Als ik de waarde in cel "A1" wijzig met een besturings
element dan wordt daar niet naar gekeken.

Wat ik uit eindelijk wil is:

Beste ingrid

Bedankt voor de goede raad maar mijn probleem blijft.
Als ik de waarde in cel "A1" wijzig met een besturings
element dan wordt daar niet naar gekeken.

Met een keuze lijst met invoervak iets selecteren

cel1=tekst1 geeft 1 in uitvoercel
cel2=tekst2 geeft 2 in uitvoercel
cel3=tekst3 geeft 3 in uitvoercel
(met als extra optie om dit te bevestigen een commadbutton)
met de uitkomst in het uitvoercel moet dan macro 1, 2 of
macro 3 worden gestart .
Ik heb wel iets gevonden in de nieuws groep die zoiets
doet ,maar ook deze oplossing reageerd alleen als je zelf
iets in cel "A1" zet en dit bevesting met een enter.

kan het dan echt niet zonder die enter toets.

met vriendelijke groet andre

>-----Oorspronkelijk bericht-----

>.
>

PeterS

unread,
Apr 13, 2003, 4:05:41 PM4/13/03
to
Dat is dus niet waar!
Wat A1-inhoud ook wijzigd, daar word op gereageerd WorkSheetChange.
Je hebt het duidelijk niet uitgeprobeerd.
Niet dat het een plicht is, maar _ik_ stop hier nu geen energie meer in.

Suc6 verder,

Peter
--

"andre" <and...@zonnet.nl> wrote in message

news:014601c301ec$8ac546c0$a101...@phx.gbl...

PeterS

unread,
Apr 13, 2003, 6:28:16 PM4/13/03
to
De gebeurtenis Change vindt plaats als de instelling van de eigenschap Value
wordt gewijzigd, ongeacht of de wijziging het resultaat is van de uitvoering van
programmacode of een handeling van de gebruiker in de interface.

Peter
--
Vragen is niet dom....beter weten, da's pas dom.

"andre" <and...@zonnet.nl> wrote in message
news:014601c301ec$8ac546c0$a101...@phx.gbl...

Ingrid Baplue

unread,
Apr 13, 2003, 11:59:18 PM4/13/03
to
Peter,

Misschien beter eerst zelf controleren voordat je reclameert. Als de waarde
in een cel wordt gewijzigd door een besturingselement op het werkblad (zoals
andre schreef) dan start de Change-event _niet_

Ingrid

PeterS schreef in news:O#vHRgfAD...@TK2MSFTNGP11.phx.gbl


> Dat is dus niet waar!
> Wat A1-inhoud ook wijzigd, daar word op gereageerd WorkSheetChange.
> Je hebt het duidelijk niet uitgeprobeerd.
> Niet dat het een plicht is, maar _ik_ stop hier nu geen energie meer
> in.
>
> Suc6 verder,
>
> Peter

Ingrid Baplue

unread,
Apr 14, 2003, 12:03:00 AM4/14/03
to
Als je de invoer wenst te bevestigen met een knop, dan moet je niet met een
event-macro werken, maar moet je gewoon in de macro achter de knop van een
Select Case gebruik maken. De macro wordt dan iets als volgt:

Sub Knop1_BijKlikken()
Select Case Range("A1")
Case 1
MsgBox "start macro 1"
Case 2
MsgBox "start macro 2"
Case 3
MsgBox "start macro 3"
End Select
End Sub

Ingrid

andre schreef in news:014601c301ec$8ac546c0$a101...@phx.gbl

andre

unread,
Apr 14, 2003, 6:18:51 AM4/14/03
to
Bedankt
Het werkt.


andre

0 new messages