irgendwie macht mein Code etwas komisches. Mit diesem simplen Code füge ich zum Schluss zwei weitere Spalten ein:
Columns("L:M").Select
Selection.Insert Shift:=xlToRight
Range("L2").Select
ActiveCell.FormulaR1C1 = "Pro"
Range("M2").Select
ActiveCell.FormulaR1C1 = "Con"
Columns("L:M").Select
Selection.Columns.AutoFit
Am Ende macht er mir 6 Spalten, jeweils 2 links und 2 rechts von den gewünschten.
Füge ich die zwei neuen Spalten zwischen D:E ein dann macht er das auch richtig. Muss ich das verstehen?
Michael