title image


Smiley Eine Schleife (VBA) über Spalten
Hallo Friedel,



hier ein paar Beispiele für Schleifen über Spalten (jeweils Zeile 1) :



Sub SpaltenSchleife1()

    'Schleife bis Spalte 20

    For Spalte = 1 To 20

        Cells(1, Spalte) = Spalte

    Next

End Sub



Sub SpaltenSchleife2()

    'Schleife bis zur letzten gefüllten Spalte in Zeile 1

    For Spalte = 1 To Cells(1, Columns.Count).End(xlToLeft).Column

        Cells(1, Spalte) = Spalte

    Next

End Sub



Sub SpaltenSchleife3()

    'Schleife ab der letzten gefüllten Spalte in Zeile 1 bis Spalte 50

    For Spalte = Cells(1, Columns.Count).End(xlToLeft).Column + 1 To 50

        Cells(1, Spalte) = Spalte

    Next

End Sub



Code eingefügt mit Syntaxhighlighter 4.0

Hoffentlich ist etwas Brauchbares für Dich dabei....

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: