Wie extrahiert man Initialen aus Namen in Excel?
Beim Verarbeiten von Kundendaten oder beim Seriendruck kann es hilfreich sein, aus einem gegebenen Namen die Initialen zu extrahieren – beispielsweise „HG“ für „Hal Greer“. Deshalb zeige ich Ihnen hier einige Methoden, mit denen Sie schnell Initialen aus Ihrer Namensliste in Excel gewinnen können.
Initialen mithilfe einer Formel in Excel extrahieren
Initialen mithilfe einer benutzerdefinierten Funktion in Excel extrahieren
Initialen mithilfe einer Formel in Excel extrahieren
Die erste Methode nutzt eine Formel, um Initialen aus Namen in Microsoft Excel zu extrahieren.
Wählen Sie eine leere Zelle aus – zum Beispiel Zelle C2 – und geben Sie folgende Formel ein:=LINKS(A2)&WENN(ISTZAHL(FINDEN(„ ";A2));TEIL(A2;FINDEN(„ ";A2)+1;1);„")&WENN(ISTZAHL(FINDEN(„ ";A2;FINDEN(„ ";A2)+1));TEIL(A2;FINDEN(„ ";A2;FINDEN(„ ";A2)+1)+1;1);„") (A2 ist die erste Zelle Ihrer Namensliste). Drücken Sie anschließend die Eingabetaste und ziehen Sie am Ausfüllkästchen, um den gewünschten Bereich zu füllen. Schon sehen Sie, wie sämtliche Initialen aus der Namensliste extrahiert wurden!
Initialen mithilfe einer benutzerdefinierten Funktion in Excel extrahieren
Neben der Formel können Sie auch eine benutzerdefinierte Funktion nutzen, um ganz einfach Initialen aus bestimmten Namen in Microsoft Excel zu extrahieren.
1. Wählen Sie eine Zelle in der Spalte aus, die Sie verwenden möchten, und drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im erscheinenden Fenster auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das Modul ein.
VBA: Initialen aus Namen extrahieren
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function3. Speichern Sie den Code und schließen Sie dieses Fenster. Wählen Sie eine leere Zelle aus und geben Sie folgende Formel ein: =FirstCharacters(A2). Drücken Sie dann die Eingabetaste und ziehen Sie am Ausfüllkästchen-Griff, um den gewünschten Bereich zu füllen. Anschließend sehen Sie, dass die Initialen jedes Namens extrahiert wurden.
Tipp: Sie können das Trennzeichen „.“ zwischen den Initialen im obigen VBA-Code nach Bedarf anpassen.
Verwandte Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins