Hallo Redryder,
ich kann deinen Code nur mit Excel 2010 nachvollziehen.
Ich glaube, das Entscheidende ist, dass du in der letzten Zeile die markierten Spalten löscht. Dadurch rückt alles nach links, Die Markierung der Spalten bleibt aber erhalten (warum auch immer!). Es ist dann zwar keine durchgehende Markierung, sondern nur die mit der zweiten Range festgelegten Spalten (also nicht einschließlich AA, AB). Wenn deinen Spalten ordnungsgemäß gelöscht wurden, solltest du einfach die Markierung entfernen, z.B. mit cells(1,1).select.
Übrigens:
Sub Test1()
Range("B:B,D:D,F:F,H:O,P:P,R:R,T:T,V:V,X:X,Z:Z").delete Shift:=xlToLeft
End Sub
tut es auch. Dadurch, dass nichts markiert wurde, bleibt auch keine Markierung übrig.
Gruß
Holger
|