so!
25.09.2014 10:41:15
Klaus
Hallo Katharina,
hier eine simple Methode:
Dim MyText As String
Dim partLeft As String
Dim partRight As String
Dim iCountText As Long
Dim FoundIt As Boolean
Dim NewText As String
Const SeperateText As String = " "
FoundIt = True
MyText = "Datum:" & Date
For iCountText = 1 To Len(MyText)
If FoundIt Then
partLeft = partLeft & VBA.Right(VBA.Left(MyText, iCountText), 1)
If VBA.Right(VBA.Left(MyText, iCountText), 1) = ":" Then
FoundIt = Not FoundIt
End If
GoTo dontDoPartRight
End If
partRight = partRight & VBA.Right(VBA.Left(MyText, iCountText), 1)
dontDoPartRight:
Next iCountText
NewText = partLeft & SeperateText & partRight
ziel.Sheets(i + 1).Range("A3").Value = NewText
Grüße,
Klaus M.vdT.