Celeigenschappen, getal...

[Martijntje]

Hi!

Ik probeer ingevoerde text in een cel op een bepaalde manier te formatteren.
De uiteindelijke notatie moet bijvoorbeeld worden: P A 03 2
ook als de gebruiker pa32 of pa 032 invoert.
Dus eigenlijk: hoofdletter, spatie, hoofdletter, spatie, 2 getallen, 1 getal
het gaat om lokaties in een stelling (kan dus ook "P B 23 5", of "P G 47 1" zijn)

Is dit mogelijk?

Dan heb ik ook nog andere stellingen, "B CD 12 6" bijvoorbeeld, maar daar moet ik wel uitkomen als ik de eerste heb...

Help! Anyone?

Thanx!

Martijn

 

[Cobbe]

Zou deze u verder helpen?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Application.EnableEvents = False
    Target = UCase(Left(Target, 1)) & " " & UCase(Mid(Target, 2, 1)) & " " & UCase(Mid(Target, 3, 2)) & " " & Right(Target, 1)
    Application.EnableEvents = True
  End If
End Sub

Succes, Cobbe

 

[danny147]

Beste Martijntje

Een aanpassing op de oplossing van Cobbe:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Application.EnableEvents = False
    Target = UCase(Left(Target, 1)) & " " & UCase(Mid(Target, 2, 1)) & " 0" & UCase(Mid(Target, 3, 1)) & " " & Right(Target, 1)
    Application.EnableEvents = True
  End If
End Sub

Deze lukt enkel als je pa32 ingeeft.

En deze code lukt als je pa032 ingeeft:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Application.EnableEvents = False
    Target = UCase(Left(Target, 1)) & " " & UCase(Mid(Target, 2, 1)) & " " & UCase(Mid(Target, 3, 2)) & " " & Right(Target, 1)
    Application.EnableEvents = True
  End If
End Sub

Groetjes Danny.:thumb:

 

[Martijntje]

Thanx guys!
Ik ben eruit!