Excel Makro Programmierung:

[cereal]

Hallo Leude,

ich brauche Hilfe bei der Erstellung des folgendes Makros:

1;4;";";7
4;7;|;3

setze trennzeichen=|

antwort:

1|4|";"|7
4|7|||3


VIELEN DANK :)

[HajottV]

Hi,


Function Replace(Wert As String) As String
i = 0
For j = 1 To Len(Wert)
a = Mid(Wert, j, 1)
If a = Chr$(34) Then i = 1 - i
If a = ";" And i = 0 Then a = "|"
Replace = Replace + a
Next
End Function


Gruß

Jörg