Hoe vindt u snel de positie van de eerste hoofdletter in een tekstreeks in Excel?
Stel dat u een lijst met tekstreeksen hebt die cijfers, hoofdletters en kleine letters bevat: hoe bepaalt u dan snel de positie van de eerste hoofdletter in elke reeks? In dit artikel introduceer ik handige trucs waarmee u de positie van de eerste hoofdletter razendsnel kunt vinden in Excel — zonder ze handmatig één voor één te tellen.
Positie van eerste hoofdletter in reeks zoeken met formule
Positie van eerste hoofdletter in reeks zoeken met gedefinieerde functie
Alle letters wijzigen naar HOOFDLETTERS of Eerste letter in hoofdletters met Kutools voor Excel 
Positie van eerste hoofdletter in reeks zoeken met formule
Hier is een handige formule om in één keer de positie van de eerste hoofdletter in een tekstreeks te bepalen. Volg de onderstaande stappen:
Selecteer een lege cel naast de reeks waarvan u de eerste hoofdletter wilt vinden, bijvoorbeeld B1, en voer deze formule in:=MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),„",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))
Druk op Shift + Ctrl + Enter om het juiste resultaat te krijgen en sleep daarna de automatische vulgreep over de cellen waarop u deze formule wilt toepassen. Zie screenshot:
Positie van eerste hoofdletter in reeks zoeken met gedefinieerde functie
Naast een formule kunt u ook een aangepaste functie gebruiken om de positie van de eerste hoofdletter in de reeks te bepalen.
1. Activeer het werkblad met de reeks waarin u hoofdletters wilt zoeken en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik met de rechtermuisknop op het werkblad waarin u de code wilt gebruiken in het deelvenster Projectverkenner en klik op Invoegen > Module. Plak de onderstaande code in het lege modulescript. Zie screenshot:
Code: Zoek de positie van de eerste hoofdletter in de reeks.
Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
Dim xStr As String
Dim I As Integer
Application.Volatile
GetFirstUpper = -1
On Error Resume Next
xStr = Trim(Rg.Value)
For I = 1 To Len(xStr)
If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
GetFirstUpper = I
Exit Function
End If
Next
End Function
3. Sla de code op en keer terug naar het werkblad dat u gebruikt. Selecteer een lege cel naast de reeks waarvan u de eerste hoofdletter wilt vinden, voer deze formule in:=GetFirstUpper(F1), druk op Enter en sleep de automatische vulgreep naar de cellen waarop u deze formule wilt toepassen. Zie screenshot:
Tip: Als er geen hoofdletter in de reeks voorkomt, wordt -1 als resultaat weergegeven.
Alle letters wijzigen naar HOOFDLETTERS of Eerste letter in hoofdletters met Kutools voor Excel
Bij alledaags Excel-werk moet u tekst vaak omzetten naar HOOFDLETTERS, Eerste letter in hoofdletters, kleine letters, Eerste letter van de zin in hoofdletters of Hoofdletters en kleine letters omkeren, zoals in de onderstaande screenshot wordt getoond.
Met Kutools voor Excel kunt u het hulpprogramma Hoofdlettergebruik wijzigen gebruiken om snel het hoofdlettergebruik aan te passen zoals u dat nodig hebt.
Na gratis installerenKutools voor Excel, volgt u de onderstaande stappen:
1. Selecteer de reeksen waarvan u het hoofdlettergebruik wilt aanpassen en klik op Kutools > Tekst > Hoofdlettergebruik wijzigen. Zie screenshot:
2. Selecteer in het verschijnende dialoogvenster Hoofdlettergebruik wijzigen de gewenste optie in het gedeelte Type wijzigen en bekijk het resultaat direct in het voorbeeldvenster. Zie screenshot:
3. Klik vervolgens op OK of Toepassen om het hoofdlettergebruik te wijzigen.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins