Zeilewerte auszählen
17.07.2006 16:12:56
Christian
hab ein Problem und weiß nicht woran es liegt. Mein kleines Makro soll für knapp 670 Zeile einen Wert pro Zeile, den ich rot markiert habe, in eine bestimmte Spalte schreiben. Der Umfang der Spalten beträgt 77, bei Spalte 7 soll er mit dem Zählen beginnen und dann in vierer Schritten bis zur 77sten Spalte durchzählen. Macht er auch, aber er vergisst unregelmäßig Werte aus verschiedenen Zeilen in diese Spalte zu schreiben, es werden also viele Zeilen einfach überlesen. Mein Makro sieht so aus:
Sub Datenumwandeln()
Dim x, i As Integer
For x = 6 To 667 Step 1
For i = 9 To 77 Step 4
If Sheets("Usage S.No Race 2006").Cells(x, i).Font.ColorIndex = 3 Then
Sheets("Usage S.No Race 2006").Cells(x, 79) = Sheets("Usage S.No Race 2006").Cells(x, i)
End If
Next i
Next x
End Sub
Weiß jmd, woran es liegt,oder wo der Fehler ist. Ist es ein Bug von Excel oder ein Fehler bei mir?
Vielen Dank im Vorraus!!!