Jetzt habe ich noch etwas herumgespielt bzw. gegoogled und ne Lösung gefunden:
Die Funktion fnFNullenWeg ist nicht von mir, sondern von einem gewissen HannesB/ aus einem office-loesung Forum. Die Funktion ist für VB gedacht und hat auch sofort ohne Änderung funktioniert.
Evtl. kann das noch jemand anderes brauchen:
Code:
' Diese Funktion ist zwingend erforderlich!
Public Function DoWork() As Object
' Dieser Beispielcode aggiert wie der Clone Heater
' nur mit dem Unterschied, dass mehr als ein Parameter übergeben werden kann
' und davon der letzte Parameter zurückgegeben wird :-)
' weitere Infos bzw. Beispiele finden Sie in der (F1) Hilfe
Dim count as Integer
Dim input as String
dim out as String
count = InValues.Length
input = InValues(0).GetString()
out = ""
out = fnFNullenWeg(input)
return out
End Function
Function fnFNullenWeg(strText As String) As String
Dim i As Integer
For i = 1 To Len(strText)
If Left$(strText, 1) = "0" Then
strText = Right$(strText, Len(strText) - 1)
Else
Exit For
End If
Next i
fnFNullenWeg = strText
End Function