title image


Smiley Re: nimm halt einfach den Index der Spalten...






Option Explicit



Sub Makro1()

Dim index As Long



   For index = 4 To 100

      Columns(index).Select

      Selection.Delete Shift:=xlToLeft

      Columns(index).Select

      Selection.Delete Shift:=xlToLeft

   Next index

   Columns(1).Select

   Selection.Delete Shift:=xlToLeft



End Sub










Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: