• 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.

ALS ... DAN ... in één cel

Status
Niet open voor verdere reacties.
M

martijnvds

Gebruiker
Lid geworden
16 mei 2017
Berichten
8
Hallo,

Ik vroeg mij af of het mogelijk is om in één cel een soort van ALS formule te gebruiken. Mijn doel is bijvoorbeeld dat als je in cel A1 'niet voldaan' schrijft, dat dat vervolgens (in dezelfde cel, A1) automatisch aangepast wordt naar 'NV'. Ik hoop dat iemand mij hier mee kan helpen. Alvast bedankt!

Gr.

Martijn
 
met een stukje VBA in het werkblad werkt het zo over de gehele kolom A

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each cell In Range("A:A")
If cell.Value = "niet voldaan" Then cell.Value = "NV"
Next cell
Application.EnableEvents = True
End Sub

Of zo, maar dan werkt het op het gehele werkblad:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Value = "niet voldaan" Then Target.Value = "NV"
Application.EnableEvents = True
End Sub
 
Laatst bewerkt:
Voor het wijzigen van de waarde wel even Application.EnableEvents op False zetten en na het wijzigen weer op True.
 
Of alleen voor A1:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value = "niet voldaan" Then
            Application.EnableEvents = False
            Target.Value = "NV"
            Application.EnableEvents = True
        End If
    End If
End Sub
 
of bijv zo: (met eventueel Events aan- en uitzetten)
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Replace What:="*niet voldaan*", Replacement:="NV", SearchOrder:=xlByColumns, MatchCase:=False
End Sub
 
Ik weet natuurlijk niet wat de reden is van de vraag, maar het komt nogal omslachtig over. Een stuk tekst typen wat je wilt laten vervangen door 2 letters.
Als je een bepaalde invulling af wilt dwingen kan m.i. beter aan de slag met Data validatie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan