Code kommentiert und Beispiel
06.05.2010 11:38:30
Erich
Hi Helmut,
schau dir den kommentierten Code mal an und probier mal das Split-Join-Beispiel.
Wenn dann etwas unklar ist, frage einfach noch mal nach:
Function VaTausch(strT As String) As String
Dim arr, ii As Long, strM As String, jj As Long
arr = Split(strT, ";") ' zerlege Text in Teile
For ii = 0 To UBound(arr) ' Schleife über die Teile
If Right$(arr(ii), 2) = "VA" Then ' wenn Teil mit VA endet
strM = arr(ii) ' merke den VA-Teil
For jj = ii To 1 Step -1
arr(jj) = arr(jj - 1) ' verschiebe vorherige Teile nach rechts
Next jj
arr(0) = strM ' 1. Teil wird VA-Teil
VaTausch = Join(arr, ";") ' setze wieder zusammen
Exit Function ' fertig
End If ' Ende wenn
Next ii ' Ende Schleife
VaTausch = strT ' wenn kein VA gefunden wurde, unverändert
End Function
Sub TestSplitJoin()
Dim arr, ii As Long
arr = Split("abxcxde", "x")
For ii = 0 To UBound(arr)
MsgBox arr(ii)
Next ii
MsgBox Join(arr, "***")
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort