Wijziging in userform

[verluc]

Bij het wegschrijven van een textbox van een userform, krijg ik volgende foutmelding op deze regel:

If Target.Column < 5 Then Target = UCase(Target)

Deze regel bevind zich in de event Worksheet-change en UCase kleurt blauw
Enig idee waar te zoeken?
Met dank

 

[edmoor]

Dat is geen foutmelding maar een coderegel. Maar doe het eens zo:

Application.EnableEvents = False
If Target.Column < 5 Then Target = UCase(Target)
Application.EnableEvents = True

 

[verluc]

Bedankt Edmoor,

Krijg nog volgende melding: Kan het project of de bibliotheek niet vinden
Zegt U dit iets ?

 

[edmoor]

Dat zegt me van alles maar kan ik m.b.t. dat ene regeltje code niks van zeggen.

 

[verluc]

Zegt U dit misschien meer ?

Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A4:A1000").HorizontalAlignment = xlLeft
Range("B4:C1000").HorizontalAlignment = xlCenter
On Error Resume Next
  If Target.Column < 5 Then Target = UCase(Target)
Application.EnableEvents = True
E[CODE]

nd sub[/CODE]

 

[edmoor]

Nee. Ik verwacht dat je een verwijzing mist in het verwijzingen schermpje van VBA:

 

[verluc]

Sorry dan maar toch prettige jaarwisseling

 

[edmoor]

Dat geeft niks, maar je moet uiteraard die verwijzingen nazien of er ergens "ontbreekt" bij staat.
Ook een fijne jaarwisseling gewenst

 

[verluc]

Waar vind ik het scherm : Verwijzingen ?

 

[VenA]

Doet Google het niet?

In de VB-editor onder tools.

 

[verluc]

Zeer bedankt beiden. Probleem opgelost !!!