Kann man das über Format lösen oder VBA wie?!
Danke schonmal
Steffen
es geht bestimmt noch einfache, aber probier mal das hier:
Sub leerz()
Dim A As Integer
Dim B As String
For A = 1 To Len(Cells(1, 1))
B = B & Right(Left(Cells(1, 1), A), 1) & " "
Next A
Cells(2, 1) = B
End Sub
mfg
Christian
P.S.: Dieses Beispiel ist aus der englischen Excel-Version. Evtl. mußt Du "Left" und "Right" gegen "Links" und "Rechts" austauschen.
Function Zeichen_einf(Text As String, Zeichen As String) As String
Dim L%, Z$, T$
T = Text
For L = 1 To Len(T)
Z = Z & Right(Left(T, L), 1) & Zeichen
Next
Z = Left(Z, (Len(Z) - 1))
Zeichen_einf = Z
End Function
aber ich musste einen neuen Thread machen, weil ich nicht weis wie ich dieses Script anpassen kann!
Vielleicht könnt Ihr nochmal einen Blick drauf werfen
Danke
Steffen