zur nächsten Zeile wechseln
31.08.2015 21:38:40
Mike
ich habe ein Programm geschrieben für das Spitten einer aktiven Zeile, nun sollt ich nicht nur die Aktive Zelle aufteilen sondern meherere nacheinander folgende Zellen z.B Zelle A1 bis A100, wie kann ich mein Programm anpassen?
Sub Splittxt()
Dim txt As String
Dim i As Integer
Dim FullName As Variant
txt = ActiveCell.Value
FullName = Split(txt, "#")
For i = 0 To UBound(FullName)
Cells(1, i + 1).Value = FullName(i)
Next i
End Sub