tomswaelen
Gebruiker
- Lid geworden
- 8 dec 2004
- Berichten
- 349
Prima! Ik zal nog even de uiteindelijke code zetten, moest nog iemand op zoek zijn naar de oplossing:
Bedankt allemaal! En vrolijk Kerstfeest ;-)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, y As Long
If Not Intersect(Target, Range("a1:a11")) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Target = Replace(Target, " ", "")
For i = 1 To Len(Target) Step 4
Target.Characters(i + y, 0).Insert (" ")
y = y + 1
Next i
Target = Mid(UCase(Target), 2)
Application.EnableEvents = True
End If
End Sub
Bedankt allemaal! En vrolijk Kerstfeest ;-)