Bitte in gutes VBA übersetzen
11.03.2014 22:39:34
O.Bernt
Es sieht schön aus, aber ...
Vorab Danke.
Sub Farbe2()
' Liest die Hintergrund-Farbnummern von 14 Zeilen aus
Dim r As Integer
For r = 4 To 34
Cells(10, r) = Cells(9, r).Interior.ColorIndex
Cells(12, r) = Cells(11, r).Interior.ColorIndex
Cells(14, r) = Cells(13, r).Interior.ColorIndex
Cells(16, r) = Cells(15, r).Interior.ColorIndex
Cells(19, r) = Cells(18, r).Interior.ColorIndex
Cells(21, r) = Cells(20, r).Interior.ColorIndex
Cells(23, r) = Cells(22, r).Interior.ColorIndex
Cells(25, r) = Cells(24, r).Interior.ColorIndex
Cells(28, r) = Cells(27, r).Interior.ColorIndex
Cells(30, r) = Cells(29, r).Interior.ColorIndex
Cells(32, r) = Cells(31, r).Interior.ColorIndex
Cells(35, r) = Cells(34, r).Interior.ColorIndex
Cells(37, r) = Cells(36, r).Interior.ColorIndex
Cells(39, r) = Cells(38, r).Interior.ColorIndex
Next r
End Sub