• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Vraag rond Excel

Status
Niet open voor verdere reacties.
Y

Yikes

Gebruiker
Lid geworden
23 okt 2008
Berichten
8
(VBA) uhm zou iemand weten hoe ik een lijst zou moeten filteren. Er mogen maar een bepaald aantal ingevoerde waarden zijn maar er mag geen cel leeg gelaten worden.

wat ik nu heb :
Code: 
Sub MacroJuisteWaarden()
Private Sub Worksheet_Change(Cancel As Boolean)
'controleer of het bereik de juiste waarden bevat
    If Range("L5:EX67") = "-,V1 , V2, V3, V4, V5, V6, V7,L1 , L2, L3, L4, L5, L6, L7,D1 , D2, D3, D4, D5, D6, D7,ADV1 , ADV2, ADV3,V1+, V2+, V3+, V4+, V5+, V6+, V7+,L1+, L2+, L3+, L4+, L5+, L6+, L7+,D1+, D2+, D3+, D4+, D5+, D6+, D7+,V1-, V2-, V3-, V4-, V5-, V6-, V7-,L1-, L2-, L3-, L4-, L5-, L6-, L7-,D1-, D2-, D3-, D4-, D5-, D6-, D7-,V10, L19, DD, A1, K30, K31, V10+, L19+, DD+, A1+, K30+, K31+, V10-, L19-, DD-, A1-, K30-, K31-,AFW, BF, CZH, DFR, EDV, EXTRA?, JV, KV, LOS, OBV, OPL, OV, PNV, R-, R+, TK, VA, Z, ZWV,V11 , V12, V13, L11, L12, L13, D11, D12, D13,V11+,V12+,V13+,L11+,L12+,L13+,D11+,D12+, D13+,V11-,V12-,V13-,L11-,L12-,L13-,D11-,D12-, D13-"

Then
Else
        'als deze leeg is geef dan een message box met een melding
        MsgBox " De invoer is niet correct! De inhoud van deze cel wordt verwijderd"
        'Cancel het commando
        Cancel = True
        'sluit de macro af
        Exit Sub
    End If
    
End Sub
 
Yikes zei:
(VBA) uhm zou iemand weten hoe ik een lijst zou moeten filteren. Er mogen maar een bepaald aantal ingevoerde waarden zijn maar er mag geen cel leeg gelaten worden.

wat ik nu heb :
Code: 
Sub MacroJuisteWaarden()
Private Sub Worksheet_Change(Cancel As Boolean)
'controleer of het bereik de juiste waarden bevat
    If Range("L5:EX67") = "-,V1 , V2, V3, V4, V5, V6, V7,L1 , L2, L3, L4, L5, L6, L7,D1 , D2, D3, D4, D5, D6, D7,ADV1 , ADV2, ADV3,V1+, V2+, V3+, V4+, V5+, V6+, V7+,L1+, L2+, L3+, L4+, L5+, L6+, L7+,D1+, D2+, D3+, D4+, D5+, D6+, D7+,V1-, V2-, V3-, V4-, V5-, V6-, V7-,L1-, L2-, L3-, L4-, L5-, L6-, L7-,D1-, D2-, D3-, D4-, D5-, D6-, D7-,V10, L19, DD, A1, K30, K31, V10+, L19+, DD+, A1+, K30+, K31+, V10-, L19-, DD-, A1-, K30-, K31-,AFW, BF, CZH, DFR, EDV, EXTRA?, JV, KV, LOS, OBV, OPL, OV, PNV, R-, R+, TK, VA, Z, ZWV,V11 , V12, V13, L11, L12, L13, D11, D12, D13,V11+,V12+,V13+,L11+,L12+,L13+,D11+,D12+, D13+,V11-,V12-,V13-,L11-,L12-,L13-,D11-,D12-, D13-"

Then
Else
        'als deze leeg is geef dan een message box met een melding
        MsgBox " De invoer is niet correct! De inhoud van deze cel wordt verwijderd"
        'Cancel het commando
        Cancel = True
        'sluit de macro af
        Exit Sub
    End If
    
End Sub
Klik om te vergroten...

Een 'pakkende" titel is beter omdat het hier allemaal om Excel vragen gaat.:p:thumb:
Ik neem aan dat de voorwaardes ergens in een celbereik staan.
Dan zouden we de celinhoud kunnen zoeken in dat bereik.
Dat werkt beter en is beter leesbaar.

Met vriendelijke groet,


Roncancio
 
De opdracht is om een lijst (bereik "L5:EX67") filteren zodat alleen de toegelaten waarden ingevoerd kunnen worden. Als de gebruiker de cel leeg zou laten moet excel een messagebox geven met de melding dat er iets ingevoerd moet worden. Als er een foutieve waarde ingevoerd is, word er hier ook een messagebox voor gegeven en wordt die foutieve waarde verwijderd

Toegelaten waarden :
Code: 
-
V1, V2, V3, V4, V5, V6, V7
L1, L2, L3, L4, L5, L6, L7
D1, D2, D3, D4, D5, D6, D7
ADV1, ADV2, ADV3
V1+, V2+, V3+, V4+, V5+, V6+, V7+
L1+, L2+, L3+, L4+, L5+, L6+, L7+
D1+, D2+, D3+, D4+, D5+, D6+, D7+
V1-, V2-, V3-, V4-, V5-, V6-, V7-
L1-, L2-, L3-, L4-, L5-, L6-, L7-
D1-, D2-, D3-, D4-, D5-, D6-, D7-
V10, L19, DD, A1, K30, K31, V10+, L19+, DD+, A1+, K30+, K31+, V10-, L19-, DD-, A1-, K30-, K31-

AFW, BF, CZH, DFR, EDV, EXTRA?, JV, KV, LOS, OBV, OPL, OV, PNV, R-, R+, TK, VA, Z, ZWV

V11, V12, V13, L11, L12, L13, D11, D12, D13
V11+,V12+,V13+,L11+,L12+,L13+,D11+,D12+, D13+
V11-,V12-,V13-,L11-,L12-,L13-,D11-,D12-, D13-

Ik ben weg tot 12u30 (ongeveer).
 
Laatst bewerkt:
Op het 1e werkblad staan de toegestane opties.
Als op het 2e werkblad een foutieve invoer wordt gedaan, wordt die invoer verwijderd en verschijnt een messagebox.

Met vriendelijke groet,


Roncancio
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan