Text-Variablen formatieren

VB und VBA stellt eine Vielzahl von Funktionen zur Verfügung, um Texte manipulieren zu können. Dazu gehört auch die altbekannte Format-Funktion. Leider wird sie oft nur zum formatieren von Zahlen eingesetzt, aber sie kann auch bei Texte gute Dienste leisten. Manchmal stellt sie sogar der direktere Weg dar, als die klassischen Funktionen.

Der klassische Weg:
Wenn bespielsweise nach einem Datenimport das Land und die Postleizahl zusammen in einem Feld vorliegen, kann es sinnvoll sein diese mit einem "-" zu trennen. Mit den klassischen Text-Funktionen könnte das Probelm folgendermassen gelöst werden:

Function ConvertPlz(strInput As String) As String
    ConvertPlz = Left(strInput, 2) & "-" & Mid(strInput, 3, 4)
End Function

Die Funktion kann wie folgt aufgerufen werden:

=ConvertPlz(PLZ)

Argumente:
[PLZ] = PLZ die konvertiert werden soll

Beispiel:
Aufruf: ConvertPlz("CH8048")
Rückgabewert: "CH-8048"

Mit Format-Funktion:
Mit dem Einsatz der Format-Funktion kann das gleiche Ergebnis mit kürzerem und übersichtlicherm Code erzielt werden:

Function ConvertPlz(strInput As String) As String
    ConvertPlz = Format(strInput, "@@-@@@@")
End Function

Diese Funktion verhält sich identisch, wie die erste Variante.

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch