Hallo,
meine Schleife hängt, leider sehe ich den Fehler nicht. Wisst ihr vielleicht wieso?
Do
Dim x As Integer
Dim y As Integer
Dim c As Integer
x = 0
y = 2
c = 1
Cells(10, y).Offset(x, 0).Value = c
c = c + 1
x = x + 1
Loop Until x = 27
Der Code ist noch nicht ganz fertig, deswegen das y. Ich würde euch sehr danken und mit freundlichen Grüßen, Phillip
|