Spalten vertasuchen
12.06.2004 18:07:07
Martin
Vielen Dank im Vorraus
Martin G
Sub vertauscheGundF()
Columns("F:F").Copy Range("IV1")
Columns("G:G").Copy Range("f1")
Columns(256).Copy Range("g1")
Columns(256).Delete Shift:=xlToLeft
Application.CutCopyMode = False
End Sub