Ich versuche gerade ein Makro zu schreiben, das bei einem Tabelnnenblatt mit Zahlen bei jeder Zahl einzeln feststellt, ob diese durch 2 oder 3 teilbar ist, wenn ja soll er den Zellenhintergrund rot färben und den Wert in der Zelle auf ein anderes Tabellenblatt kopieren. 

Das Makro funktioniert fast, lediglich der Spaltenumsprung funktioniert nicht. Es endet nach der ersten Spalte.

Worksheets("Zahlen20x10").Activate
X = 1
a = 1
Z = 1
Do While Cells(1, a).Value <> ""
    Do While Cells(X, a).Value <> ""
        If (Cells(X, a).Value Mod 2) = 0 Or (Cells(X, a).Value Mod 3) = 0 Then
            Cells(X, a).Interior.Color = rgbRed
            Worksheets("Teiler2oder3").Cells(Z, 1).Value = Cells(X, a).Value
            Z = Z + 1
        End If
        X = X + 1
    Loop
    a = a + 1
Loop
End Sub

Vielen Dank für eure Hilfe!