Hilfe!
alles hat so gut geklappt aber nun das, was kann ich hier machen?
Mit meiner Array habe ich beim Copieren ein Problem, ich bekomme einen Laufzeitfehler der besagt,
"Teile eine Arrays könne nicht geä. werden"
Range("e1").Select
Range("e1").Select
Selection.FormulaArray = _
"=MID(LEFT(RC[-1],MAX(IF(ISNUMBER(MID(RC[-1],COLUMN(R),1)*1),COLUMN(R)))),MATCH(TRUE,ISNUMBER(MID(RC[-1],COLUMN(R),1)*1),0),LEN(RC[-1]))"
Range("e1").Select
Selection.Copy
Columns("e:e").Select
ActiveSheet.Paste
Liebe Grüße Lisa