[EXCEL97] testen van waarde in cel

[Verwijderd]

Ik wil op het moment van invoer van een waarde in een cel een functie aanroepen om de waarde in de cel te testen en eventueel een melding te geven.

Ik heb nu dit:

Function test(bereik As Range)

If bereik.Value = "VerV" Then
MsgBox "test"
End If
End Function

Dit werkt niet want ik kom nu in een loop, de functie geeft 0 terug als er niets in de cel staat en gaat vervolgens die 0 weer testen enz. enz.

De bedoeling is dat op het moment dat de gebruiker "VerV" in de cel plaatst er een melding komt, zodra ie er iets anders inzet blijft gewoon datgene staan wat hij erin getypt heeft.

Ben al effe aan het zoeken geweest maar vind zo geen nette oplossing

[BtM909]

Waarom maak je niet gebruik van het Worksheet_Change event

Ik maak zo ff een voorbeeld, want ik kan me niet echt voorstellen dat de functie 0 retourneert?

edit:

Dit werkt gewoon

code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$D$4" Then
        If Target.Value = "VerV" Then
            MsgBox "Hé, wat doe je nou?"
            Target.Activate
        End If
    End If

End Sub

Of is dit niet wat je wilt?

[ Voor 50% gewijzigd door BtM909 op 27-08-2004 10:27 ]

[Verwijderd]

Ik ga het effe proberen.

Ik moet eigenlijk testen als taget.address binnen een bepaalde range valt maar ik zal eens kijken of ik dat red....

Bedankt alvast

[Verwijderd]

Domme vraag wellicht maar hoe test ik of target.address binnen een bepaalde range valt?

if taget.address in range("A1:Z100") then .......

[BtM909]

Verwijderd schreef op 27 augustus 2004 @ 10:38:
Domme vraag wellicht maar hoe test ik of target.address binnen een bepaalde range valt?

if taget.address in range("A1:Z100") then .......

Ik zie dat je wel vaker bezig bent met vragen over Excel en Word

Dan weet je dus ook dat er een hele goede VBA reference help bij wordt geleverd. Wellicht dat je hier kan achterhalen hoe je hetgeen wilt bereiken...

Als je er dan niet uitkomt, laat dan ff weten waar je tegenaan loopt.


<sub>Tip van Flip:
- help ook eens een ander. GoT is geen eenzijdige helpdesk
- er bestaat ook een edit-knop</sub>

[ Voor 4% gewijzigd door BtM909 op 27-08-2004 10:41 ]

[Verwijderd]

BtM909 schreef op 27 augustus 2004 @ 10:41:
[...]

Ik zie dat je wel vaker bezig bent met vragen over Excel en Word

Dan weet je dus ook dat er een hele goede VBA reference help bij wordt geleverd. Wellicht dat je hier kan achterhalen hoe je hetgeen wilt bereiken...

Als je er dan niet uitkomt, laat dan ff weten waar je tegenaan loopt.


<sub>Tip van Flip:
- help ook eens een ander. GoT is geen eenzijdige helpdesk
- er bestaat ook een edit-knop</sub>

Je hebt gelijk, alleen mijn probleem is dat ze hier op het werk (je gelooft het niet) een halve office installatie hebben neergezet. Oa de helpfiles hebben ze niet geinstalleerd. Ik weet het, te triest voor woorden maar ik kan daar niets aan veranderen.

[onkl]

Verwijderd schreef op 27 augustus 2004 @ 10:45:
[...]


Je hebt gelijk, alleen mijn probleem is dat ze hier op het werk (je gelooft het niet) een halve office installatie hebben neergezet. Oa de helpfiles hebben ze niet geinstalleerd. Ik weet het, te triest voor woorden maar ik kan daar niets aan veranderen.

On topic kom je er zo te zien wel uit, even offtopic, ben op mijn werk ook ooit zo begonnen met programmeren (zelfs met een half gare office installatie idd. ). Goed idee: als je dit op je werk nodig hebt, vraag je baas of je even een fatsoenlijke VB/Excel bijbel kan halen (iedere kantoorboekhandel, ong.€70). Ik ging er ooit een stuk efficienter van werken (en dat vond m'n baas wel leuk geloof ik )

[Verwijderd]

Hier is een functie om te testen of een address zich in een range bevindt:

Function InRange(rng1 As Range, rng2 As Range) As Boolean
InRange = False
If rng1.Parent.Parent.Name = rng2.Parent.Parent.Name Then
If rng1.Parent.Name = rng2.Parent.Name Then
If Union(rng1, rng2).Address = rng2.Address Then
InRange = True
End If
End If
End If
End Function

[CoRrRan]

Aanrader qua book:
MS Excel 2000 Power Programming in VBA

(Dit was de enige versie van dit boek wat een beetje in de buurt komt van Excel97.)

Kun je niet gewoon vragen aan je IT-departement dat ze eventjes wat moeite nemen om je PC te updaten met de helpfiles van VBA? Want er staat echt immens veel informatie in die nuttig is...

Je kunt natuurlijk ook altijd nog op msdn.microsoft.com kijken...

offtopic:
MS Excel 2003 Power Programming in VBA <-- voor de wat nieuwere versies van Office...