Zellfarbe ändern
13.03.2003 13:59:26
Michael_E
habe folgendes Makro mit dem Rekorder aufgezeichnet.
Wie kann man den Code ändern ohne select.
kann mir einer helfen??
Hintrdrund: Die Datei ist schon 6MB groß, teilweise durch farbige Zellen. jetzt möchte ich die Zellen erst beim aufrufen färben.
Sub TestFarbEin()
ActiveCell.Offset(1, 0).Range("A1:E19").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(19, 0).Range("A1:E5").Select
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Selection.Locked = False
Selection.FormulaHidden = False
ActiveCell.Offset(-18, 0).Range("A1").Select
End Sub
Danke im vorraus für eure Mühe
gruß Michael
Anzeige