Probleem met vert.zoeken

[SeringZH]

Wat is de oorzaak dat het steeds fout gaat met het invullen van een lijst.

Het invullen zonder vert.zoeken gaat probleemloos, maar zodra ik dus vert.zoeken wil gebruiken gaat het fout.
Het gaat er dus om dat in een lijst altijd nog nieuwe gegevens kunnen worden ingevoerd.
Dit lukt niet tenzij ik hrt bestand afsluit en opnieuw opent en dan kan er weer 1 regel ingevoerd worden.
Wat doe ik fout?

 

[AlexCEL]

Wat is nu precies het probleem? Graag een nadere toelichting wat mij betreft.

 

[SeringZH]

Het omschrijven van het probleem is eigenlijk al een probleem.
Zoals op de bijlage te zien is wordt de plaats niet meer naar hoofdletters omgezet en als ik dan de cel opnieuw wil invoeren begint dat ergens op een vreemde plek. Dit gebeurt dus nadat ik vert.zoeken had ingevoerd op het zoek gedeelte(wat overigens op een andere sheet moet gebeuren, maar dat komt later wel. Nu zo om het bij elkaar te houden in het voorbeeld. Bestand sluiten en opnieuw opstarten en dan werkt het invullen van een nieuwe PC en Plaats weer 1 keer en dan treed de fout weer op.

 

[lam201]

met je vert.zoeken functie trigger je het worksheet_change event.
binnen dit event wordt je vert.zoeken opnieuw berekend en trigger je je worksheet_change event.
maw je komt in een continue loop.

oplossing: verwijder je berekening van deze sheet. of in de VBA code zet je Application.EnableEvents = False er extra in bij target.column = 2 (net zoals bij target.column = 3)

 

[AD1957]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

    If Target.Column = 2 Then
        Target.Value = Left(Target.Value, 4) & " " & UCase(Right(Target.Value, 2))
    End If
    
    If Target.Column = 3 Then
        Target.Value = UCase(Target.Value)
    End If
Application.EnableEvents = True
End Sub

lam 201, was er sneller met de oplossing

 

[SeringZH]

Ja dit is de oplossing.

Bedankt voor de hulp

SeringZH