Hallo Andreas,
dann empfehle ich wieder von dem einfachen Code auf die Function zu wechseln, da die Position ja nicht über die "0" gefunden werden kann:
PS: Eine Sache ist noch nicht abgedeckt (vielleicht kommt sie ja auch nicht vor)
PP0099 würde jetzt PP(099) ergeben. Wenn PP0099 PP(99) ergeben soll, müsste man noch ein Int() mit in den Code einbauen.
Sub Teste()
Dim a As String
a = "TG20"
a = SetzeInKlammern(a)
End Sub
Function SetzeInKlammern(Wert As String) As String
Dim i As Integer
SetzeInKlammern = Wert
For i = 2 To Len(Wert)
If Mid(Wert, i, 1) = "0" Then
SetzeInKlammern = Left(Wert, i - 1) & "(" & Mid(Wert, i + 1) & ")"
Exit For
ElseIf Mid(SetzeInKlammern, i, 1) Like "#" Then
SetzeInKlammern = Left(Wert, i - 1) & "(" & Mid(Wert, i) & ")"
Exit For
End If
Next i
End Function
viele Grüße
Karl-Heinz
|