Kann man das über Format lösen oder VBA wie?!
Danke schonmal
Steffen
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