Hallo Andreas,
eine Function wird irgendwo im Modul platziert und kann (auch mehrfach von verschiedenen Stellen) aus einer Sub oder einer anderen Function aufgerufen werden.
Hierbei kann der Function ein oder auch mehrere zu verarbeitende Variablen oder Werte übergeben werden.
Das Ergebnis wird üblicherweise über die Function zurückgegeben.
Beim Lesen Deiner Anforderung habe ich mich etwas verlesen und verweise jetzt auf den code von meinem Nachfolger Gast, denn es geht natürlich auch kürzer.
Hier mein jetzt etwas abgewandeltes Beispiel:
Hierbei muss sich aber eine "0" im Text befnden, sonst kommt ein Fehler.
Sub Test()
Dim a As String
a = "AB0199"
a = Left(a, InStr(a, "0") - 1) & "(" & Mid(a, InStr(a, "0") + 1) & ")"
End Sub
viele Grüße
Karl-Heinz
|