In diesem Tutorial wird gezeigt, wie Sie die Left VBA-Funktion verwenden.
Linke Funktion
Die VBA Left-Funktion gibt die ersten n Zeichen einer Zeichenfolge zurück.
VBA Left Function n erste Zeichen
Die VBA Left-Funktion gibt die ersten n Zeichen einer Zeichenfolge zurück:
123456 | Sub LeftExample_1()MsgBox Left("ABCDEFGHI", 4) 'Ergebnis ist: "ABCD"MsgBox Left("ABCDEFGHI", 2) 'Ergebnis ist: "AB"MsgBox Left("ABCDEFGHI", 1) 'Ergebnis ist: "A"MsgBox Left("ABCDEFGHI", 100) 'Ergebnis ist: "ABCDEFGHI"End Sub |
VBA Left Function n erste Zeichen in einer Variablen
Wie oben gezeigt, können Sie eine Zeichenfolge einfach durch Eingabe von Text in Anführungszeichen definieren. Aber die LEFT-Funktion funktioniert auch mit String-Variablen. In diesen Beispielen werden die ersten n Zeichen aus einer String-Variablen extrahiert.
1234567891011 | Sub LeftExample_2()Dim StrEx As String 'String-Variable definierenStrEx = "ABCDEFGHI"MsgBox Left(StrEx, 4) 'Ergebnis ist: "ABCD"MsgBox Left(StrEx, 2) 'Ergebnis ist: "AB"MsgBox Left(StrEx, 1) 'Ergebnis ist: "A"MsgBox Left(StrEx, 100) 'Ergebnis ist: "ABCDEFGHI"End Sub |
VBA Left Function n Erste Zeichen in einer Zelle
Strings können in VBA-Code definiert werden, aber Sie können auch Werte aus Zellen verwenden. Lesen Sie den Wert einer Zelle, behalten Sie ihn in einer Zeichenfolgenvariable bei und extrahieren Sie n erste Zeichen aus diesem Arbeitsblattzellenwert.
12345678910111213 | Sub LeftExample_3()Dim StrEx As String 'String-Variable definieren'Lesen Sie den Wert von Zelle A1 im Arbeitsblatt Sheet1StrEx = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value'Für dieses Beispiel ist der Wert von Zelle A1 "A bCDEFGHI"MsgBox Left(StrEx, 4) 'Ergebnis ist: "ABCD"MsgBox Left(StrEx, 2) 'Ergebnis ist: "AB"MsgBox Left(StrEx, 1) 'Ergebnis ist: "A"MsgBox Left(StrEx, 100) 'Ergebnis ist: "ABCDEFGHI"End Sub |
VBA-Linke-Funktion Abschneiden des letzten Buchstabens
Um Buchstaben vom Ende einer Zeichenfolge zu entfernen, verwenden Sie die LEFT-Funktion zusammen mit der LEN-Funktion.
Die VBA-LEN-Funktion zählt die Anzahl der Zeichen in einer Zeichenfolge:
1 | Linse(StrEx) |
Durch Kombinieren der Funktionen können wir eine bestimmte Anzahl von Zeichen am Ende des Strings entfernen:
123456789 | Sub LeftExample_4()Dim StrEx As String 'String-Variable definierenStrEx = "ABCDEF"MsgBox Left(StrEx, Len(StrEx)) 'Ergebnis ist: "ABCDEF"MsgBox Left(StrEx, Len(StrEx) - 1) 'Ergebnis ist: "ABCDE"MsgBox Left(StrEx, Len(StrEx) - 2) 'Ergebnis ist: "ABCD"End Sub |
VBA links, um den Vornamen zu extrahieren
Um den Vornamen aus einer Zeichenfolge mit vollem Namen zu extrahieren, verwenden Sie die Left-Funktion zusammen mit der Instr-Funktion.
Die VBA Instr-Funktion sucht nach einer Teilzeichenfolge innerhalb einer Zeichenfolge und gibt die Positionsnummer der Teilzeichenfolge zurück.
1 | InStr(StrEx, "") |
Durch Kombinieren der Funktionen können wir das erste Wort aus einer Phrase extrahieren:
12345678910111213141516171819 | Sub LeftExample_5()Dim StrEx As String 'String-Variable definierenStrEx = "Alexander Graham Bell"MsgBox Left(StrEx, InStr(StrEx, ""))'Ergebnis ist: "Alexander" (beachte das Leerzeichen am Ende)MsgBox Left(StrEx, InStr(StrEx, "") - 1)'Ergebnis ist: "Alexander" (KEIN Leerzeichen am Ende)StrEx = "Leonardo da Vinci"MsgBox InStr(StrEx, "")'Ergebnis ist: 9, weil Platz in Position 9 gefunden wirdMsgBox Left(StrEx, InStr(StrEx, "") - 1)'Ergebnis ist: "Leonardo"End Sub |