title image


Smiley Re: Range(Cells(1,1)) ???
Hallo!



Mit der folgenden Prozedur kannst Du durchaus Formate zuweisen. Im folgenden Fall z.B. trägst Du in E5 den Colorindex ein:



For i = 1 To 10

Cells(i, 1).Interior.ColorIndex = Cells(5, 5)

Next



oder einfacher



range("a1:a10").Interior.ColorIndex = Cells(5, 5)



Und wenn Du einfach die Gesamtformatierung von E5 auf A1:A10 übertragen möchtest, dann z.B. so:



Cells(5, 5).Copy

range("A1:A10").Select

Selection.PasteSpecial Paste:=xlFormats

Application.CutCopyMode = False



Gruß

Manes






Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: