Ich habe ein Problem mit folgender Schleife:
Sub Button1_Click()
Sheets("data").Activate
Dim i
For i = 1 To 20
If Worksheets("data").Cells(i, 1) = Worksheets("data").Cells(i, 16).Value Then
Worksheets("data").Cells(i, 17).Select
Selection.Copy
Worksheets("data").Cells(i, 1).Select
ActiveCell.End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Else
Worksheets("data").Cells(i, 17).Select
Selection.Font.ColorIndex = 3
End If
Next i
End Sub
Es wird Fehler 400 ausgeworfen beim Ausführen der Schleife. Beziehe ich den code nur auf eine Reihe, lasse also die Schleife weg, so funktioniert alles einwandfrei.
Der Fehler liegt wohl in der fett markierten Reihe, denn wenn ich diese weg lasse, so läuft die Schleife durch. Leider brauche den fett markierten Teil, um in die richtige Zelle zu springen.
Wäre für Hilfe dankbar...