Ich habe eine Spalte mit 70 Buchstaben drin, ich möchte daraus 7 Spalten machen mit jeweils 10 Buchstaben in jeder.
Könnte mir jemand helfen?
Danke
Sub Exportdata()
Worksheets ("Sheet1")
Column C = Mid(B, 1, 10)
Column D = Mid(B, 11, 10)
Column E = Mid(B, 21, 10)
Column F = Mid(B, 31, 10)
Column G = Mid(B, 41, 10)
Column H = Mid(B, 51, 10)
Column I = Mid(B, 61, 10)
End Sub
Sub alexandra()
Dim Ende As Long
Dim I As Long
Ende = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For I = 1 To Ende
Cells(I, 3).Value = Mid(Cells(I, 2).Value, 1, 10)
Cells(I, 4).Value = Mid(Cells(I, 2).Value, 11, 10)
Cells(I, 5).Value = Mid(Cells(I, 2).Value, 21, 10)
Cells(I, 6).Value = Mid(Cells(I, 2).Value, 31, 10)
Cells(I, 7).Value = Mid(Cells(I, 2).Value, 41, 10)
Cells(I, 8).Value = Mid(Cells(I, 2).Value, 51, 10)
Cells(I, 9).Value = Mid(Cells(I, 2).Value, 61, 10)
Next
End Sub