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