title image


Smiley Re: warum das denn
och, spielen kann man doch immer.

;-)



Sub test()

For y = 1 To 10

For x = 1 To 56

ActiveWorkbook.Colors(x) = RGB(y * 25, 0, x * 4)

Cells(x, y).Interior.ColorIndex = x

Next

Range("A1:A56").Offset(0, y - 1).CopyPicture Appearance:=xlScreen, Format:=xlBitmap

Range("A1:A56").Offset(0, y - 1).PasteSpecial

Next

End Sub





Und in Excel 12 soll sowas wohl auch normal mit Zellen gehen gehen.



Grüße

Jens



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: