Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Mid-Funktion (Beispiel)

In dem ersten Beispiel wird die Mid-Funktion verwendet, um eine bestimmte Anzahl von Zeichen aus einer Zeichenfolge zu liefern.

Dim Text1, ErstesWort, LetztesWort, Mitte
Text1 = "Mid-Funktion Demo"    ' Zeichenfolge erstellen.
ErstesWort = Mid(Text1, 1, 3)    ' Liefert "Mid".
LetztesWort = Mid(Text1, 14, 4)    ' Liefert "Demo".
Mitte = Mid(Text1, 5)    ' Liefert "Funktion Demo".

Im zweiten Beispiel wird MidB und eine benutzerdefinierte Funktion (MidMbcs) verwendet, um ebenfalls Zeichen aus einer Zeichenfolge zu liefern. Der unterschied besteht darin, daß die Eingabezeichenfolge ANSI ist und die Länge in Byte angegeben wird.

Function MidMbcs(ByVal str as String, start, length)
    MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

Dim MyString
MyString = "AbCdEfG"
' Wobei "A", "C", "E" und "G" DBCS sind und "b", "d" 
' und "f" SBCS sind.
MyNewString = Mid(MyString, 3, 4)
' Liefert ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Liefert ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Liefert "bCd"