Wie überprüfe ich, ob der erste Buchstabe in einer bestimmten Zelle in Excel groß geschrieben ist?
Es kann einfach sein, alle Buchstaben in einer Zelle in Excel groß zu schreiben. Wissen Sie jedoch, wie Sie nur prüfen können, ob der erste Buchstabe in einer bestimmten Zelle in Excel groß geschrieben ist oder nicht? In diesem Artikel wird ein VBA-Code vorgestellt, mit dem Sie ihn erreichen können.
Überprüfen Sie, ob der erste Buchstabe in einer angegebenen Zelle mit VBA-Code groß geschrieben ist
Überprüfen Sie, ob der erste Buchstabe in einer angegebenen Zelle mit VBA-Code groß geschrieben ist
Gehen Sie wie folgt vor, um den VBA-Code anzuwenden und zu überprüfen, ob der erste Buchstabe in einer Zelle in Excel groß geschrieben ist oder nicht.
1. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Überprüfen Sie, ob der erste Buchstabe in einer Zelle groß geschrieben ist
Sub UpperCaseCheck()
Dim xRg As Range
Dim xAsc As Integer
Set xRg = Range("A1")
xAsc = Asc(Mid(xRg.Value, 1, 1))
If xAsc > 64 And xAsc < 91 Then
MsgBox "First alpha character is capital"
Else
MsgBox "First alpha character is not capital"
End If
End Sub
Note: Im Code ist A1 die Zelle, in der Sie prüfen, ob der erste Buchstabe ein Großbuchstabe ist. Bitte ändern Sie es nach Bedarf.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann ein Microsoft Excel Es erscheint ein Dialogfeld, in dem Sie erfahren, ob der erste Buchstabe in der angegebenen Zelle ein Großbuchstabe ist oder nicht, wie in den folgenden Screenshots gezeigt.
Weitere Artikel:
- Wie überprüfe ich, ob ein Zellenwert in Excel zwischen zwei Werten liegt?
- Wie kann ich überprüfen, ob die Zelle in Excel mit einem bestimmten Zeichen beginnt oder endet?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!