Verwenden der funktionen left, right, mid und len in Visual Basic for Applications in Excel

Zusammenfassung

Dieser Artikel enthält Beispiele zum Bearbeiten von Textzeichenfolgen mit den Funktionen Left, Right, Mid und Len in Microsoft Visual Basic for Applications in Microsoft Excel.

Weitere Informationen

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Mitarbeiter der Microsoft Product Support Services erklären Ihnen gerne die Funktionsweise einer bestimmten Prozedur. Die Mitarbeiter werden diese Beispiele jedoch weder modifizieren, um zusätzliche Funktionalität zu schaffen, noch Prozeduren entwickeln, die auf Ihre spezifischen Bedürfnisse zugeschnitten sind.

Im folgenden Verfahren wird die Verwendung der Funktionen Left, Right, Mid und Len von Microsoft Visual Basic for Applications in Microsoft Excel veranschaulicht:

1. Erstellen Sie eine neue, leere Excel-Arbeitsmappe.

2. Öffnen Sie die Visual Basic-Editor, indem Sie ALT+F11 drücken.

3. Klicken Sie im Menü „Einfügen“ auf „Modul“.

4. Geben Sie das folgende Makro in das neue Modulblatt ein.

         Sub String_Len()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Displays length of string.
             MsgBox Prompt:="The length of the string is " & _
                 Len(MyString) & " characters."
         End Sub
   
         Sub String_Left()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the left number of specified characters.
             Result = Left(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The left " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Right()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the right number of specified digits.
             Result = Right(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The right " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Mid()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Sets starting position.
             StartPos = InputBox _
                 ("Give me a starting position (1 to " _
                 & Len(MyString) & ")")
             ' Determines length of string of text.
             StringLen = Len(MyString) - StartPos + 1
             ' Sets number of characters.
             NumChars = InputBox _
                 ("How many characters would you like? (From 1 to " & _
                 StringLen & ")")
             MsgBox prompt:="The result is: " & _
                 Mid(MyString, StartPos, NumChars)
         End Sub
   
   

Um ein Beispiel für die Funktionen Left, Right, Mid und Len anzuzeigen, verwenden Sie eines der folgenden Verfahren, die für die von Ihnen ausgeführte Excel-Version geeignet sind:

• Klicken Sie in Microsoft Office Excel 2007 auf die Registerkarte Entwickler, klicken Sie in der Gruppe Code auf Makros, wählen Sie das Makro für die gewünschte Funktion aus, und klicken Sie dann auf Ausführen.
• Klicken Sie in Microsoft Office Excel 2003 und früheren Excel-Versionen im Menü Extras auf Makros, wählen Sie das Makro für die gewünschte Funktion aus, und klicken Sie dann auf Ausführen.

References

Um weitere Informationen zu diesen Funktionen zu erfahren, geben Sie den folgenden Text auf einem Modulblatt ein:

• Len
• Right
• Left
• Mid

Markieren Sie die Funktion, zu der Sie weitere Informationen benötigen, und drücken Sie dann F1.