Home > Computer > Coding > Visual Basic (VBA) / Excel / Access > Eine Zeichenkette (String) kürzen
Eine Zeichenkette (String) kürzen:
Das folgende Makro kürzt einen Zeichenkette um ein gewünschtes Element. In dem Beispiel wird die Zeichenkette
Name;Vorname;Straße;Hausnummer;PLZ;Ort um
das Element Straße; gekürzt. Zusatzinformationen
kann man abfragen,
indem man die Maus über dem Quelltext verweilen
läßt.
Sub Q_String_kuerzen()
Dim Q_String As String, Z_String As String, Element As String
Dim Q_String_Pos_Element As Integer
On Error Resume Next
Element = ";Straße"
Q_String = "Name;Vorname;Straße;Hausnummer;PLZ;Ort"
MsgBox Q_String
Q_String_Pos_Element = InStr(Q_String, Element)
If Q_String_Pos_Element = 0 Then Exit Sub
Z_String = Left(Q_String, Q_String_Pos_Element - 1)
Z_String = Z_String + Right(Q_String, Len(Q_String) - Len(Element) - Q_String_Pos_Element + 1)
MsgBox Z_String
On Error GoTo 0
End Sub
Das Makro als Datei (Excel 2007 / xlsm) herunterladen.
Wer kein Excel 2007 nutzt, benötigt in älteren Excelversionen (z.B. Excel 2003) den Konverter von Microsoft (Microsoft Office Compatibility Pack...).