For-Each-Schleife funktioniert nicht.
27.10.2015 13:37:35
moohdan
ich möchte die For-Each -Schleife in der unteren Form benutzen. Es funktioniert leider nicht. Könnte mir jemand sagen, woran es liegen kann.
Hier der Code:
Sub For_Each()
'For_Each Makro
Dim VList As String
VList = [+0MA+K4H, +7IH+K4H, +7IH+K5A, +7IG+K4H, +1TR+K5A, +1TU+K5A]
Dim V As Variant
For p = 2 To 7
Cells(p + 2, 19).Value = p * 100
For Each V In VList
Cells(p + 2, 23).Value = V
Next
Next
End Sub
Mit freundlichen Grüßen
moohdan