danke klaus
vielleicht hilft Dir dieser Lösungsansatz:
Sub test()
With Range("MeinBereich")
.Columns(2).Insert
.Columns(1).Select
End With
End Sub
--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)
Monika Weber wrote:
> vielleicht hilft Dir dieser Lösungsansatz:
>
> Sub test()
> With Range("MeinBereich")
> .Columns(2).Insert
> .Columns(1).Select
> End With
> End Sub
Wenn ich Dich richtig verstanden habe, willst Du den _neu eingefügten_ Spaltenbereich markieren.
Dann müsstest Du IMHO für Insert und Select dieselbe Spalte angeben. Also im o.g. Beispiel:
.Columns(2).Select
Schönen Gruß
--
Michael
michael....@gmx.de