Zum Inhalt springen.
Zum Seitenanfang springen.
Sie befinden sich genau hier:

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

Der Download wurde entfernt. Diese Datei kann leider nicht mehr heruntergeladen werden.


Wer kein Excel 2007 nutzt, benötigt in älteren Excelversionen (z.B. Excel 2003) den Konverter von Microsoft (Microsoft Office Compatibility Pack...).