For Each Schleife steuern
18.12.2003 12:58:31
marc
ich moechte die for-each-schleife so steuern,
dass beim jedem start die werte in die naechste spalte kopiert werden.
erster start in spalte A wurden die vier werte eingetragen,dann
zweiter start in spalte B usw.
Sub Felder_in_Spalten()
Const Spalte = 1
Dim zelle As Range
Dim I As Integer
I = 1
For Each zelle In Range("J2:J5")
Cells(I, Spalte).Value = zelle.Value
I = I + 2
Next
End Sub
marc.