automatisch hoofdletters

[jack009]

hallo

geachte helpers,

ik heb een inventarisatie formulier gemaakt, daarop wil ik graag de voorletters invoeren maar dn gewoon aan elkaar bijvoorbeeld"jwm"maar dat he vanzelf wordt omgezet in "J.W.M."

in hoofdletters dus en puntjes er tussen

kan iemand mij hiermee helpen ik heb het al geprobeerd met celeigenschappen aangepast maar ik kom er niet uit.

bvd

jack

 

[VTeun]

Hoi,

Ik geef hem voor een andere, maar dit werkt ook ....
Wil je de criteria uitbreiden voor meer voorletters, dan moet je ook de formule aanpassen

 

[jack009]

Hoi,

Ik geef hem voor een andere, maar dit werkt ook ....
Wil je de criteria uitbreiden voor meer voorletters, dan moet je ook de formule aanpassen

bedankt voor deze oplossing, maar dan staat er in 2 cellen de voorletters vermeld en at heb ik liever niet , ziet er een beetje raar uit op het formulier dat ook uitgeprint dient te worden

ik hoopte dat het met één invoer cel dat ook dan wijzigt in hoofdletters met puntjes


in ieder geval bedankt voor de genomen moeite ik heb sowieso jouw formule bewaart en weer van geleerd

gr

jack

 

[Gert Bouwmeeste]

Je zult altijd een tweede kolom hebben om te bereiken wat je wil.

In bijgaand bestand is een voorbeeld opgenomen van een Function:

Function HfdLtPnt(sInhoud As String) As String
Dim uitvoer As String
Dim positie As Integer
    
While positie < Len(sInhoud)
    positie = positie + 1
    uitvoer = uitvoer + UCase$(Mid$(sInhoud, positie, 1) + ".")
Wend
HfdLtPnt = uitvoer
End Function

Die vertaalt een oneindig aantal voorletters in Hoofdletters met een punt.

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        For j = 1 To Len(Target)
            c0 = c0 & Mid(Target, j, 1) & "."
        Next
        Target = ucase(c0)
        Application.EnableEvents = True
    End If
End Sub

 

[Gert Bouwmeeste]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        For j = 1 To Len(Target)
            c0 = c0 & Mid(Target, j, 1) & "."
        Next
        Target = ucase(c0)
        Application.EnableEvents = True
    End If
End Sub

Die is uiteraard veel beter!

 

[jack009]

Je zult altijd een tweede kolom hebben om te bereiken wat je wil.

In bijgaand bestand is een voorbeeld opgenomen van een Function:

Function HfdLtPnt(sInhoud As String) As String
Dim uitvoer As String
Dim positie As Integer
    
While positie < Len(sInhoud)
    positie = positie + 1
    uitvoer = uitvoer + UCase$(Mid$(sInhoud, positie, 1) + ".")
Wend
HfdLtPnt = uitvoer
End Function

Die vertaalt een oneindig aantal voorletters in Hoofdletters met een punt.

Gert super bedankt voor je oplossing

gr

jack

 

[jack009]

Die is uiteraard veel beter!

allereerst super bedankt voor de oplossing
en volgens Gert is uw oplossing veel beter

ik ben totaal niet bekend met vba
ik weet dus ook niet zo goed goed hoe ik dit moet lezen
moet ik ook 2 kolommen of cellen gebruiken, en waar voor ik mijn voorletters in bij uw voorbeeld. als u mij daar nog even mee kan helpen ben ik u zeer dankbaar.

groet

 

[Warme bakkertje]

Jack, persoonlijk zou ik kiezen voor de oplossing van snb aangezien deze werkt zonder hulpkolom. Zou je ook zo vriendelijk willen zijn de vraag dan ook op opgelost te zetten
De code van snb plaats je achter het blad zelf. Rechtsklik op bladtab > Programmacode weergeven > code plakken. De code reageert op een wijziging die je maakt in kolom A

Mvg

Rudi

 

[jack009]

Jack, persoonlijk zou ik kiezen voor de oplossing van snb aangezien deze werkt zonder hulpkolom. Zou je ook zo vriendelijk willen zijn de vraag dan ook op opgelost te zetten
De code van snb plaats je achter het blad zelf. Rechtsklik op bladtab > Programmacode weergeven > code plakken. De code reageert op een wijziging die je maakt in kolom A

Mvg

Rudi

Rudi bedankt voor de uitleg, ik wist niet waar ik de code moest plaatsen

nogmaals dank
en natuurlijk SNB ook superbedankt

gr

jack