|
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!
|