|
Hi Milena,
ich habe noch nicht ganz verstanden, was Du alles machen möchtest.
Für das von Dir gepostete Beispiel zum Aufteilen der Daten in einem Feld in nebeneinanderstehende Felder hier noch eine Alternative ohne Schleife...
Code:
01
02
03
04
05
06
07
08
09
10 |
|
Sub DatenTrennen()
Dim sArr() As String
With Cells(2, 5)
' Zeichenkette trennen, in ein Array speichern und ausgeben
sArr = Split(.Value, vbLf)
.Resize(1, UBound(sArr) + 1).Value = sArr
End With
End Sub
|
_________
viele Grüße
Karl-Heinz
|