ohne Select
01.03.2005 08:18:28
Thomas
Die Profis unter euch plädieren darauf, das zu 99% ohne Select in Excel gearbeitet werden kann. Ich habe das Prinzip noch nicht ganz gecheckt.
Ich möchte vor dem Drucken im Tabellenblatt die Zellenfarbe löschen, danach wieder setzen, etwa so:
Sub VorDruck()
'Zellenfarbe entfernen
Range("F12:I15,B21,B22:D22,H21:H22,A42,B45:B46").Select
Selection.Interior.ColorIndex = xlNone
End With
'Zellenfarbe setzen
Range("F12:I12,F12:I15,B21,B22:D22,H21:H22,A42,B45:B46").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Ist das jetzt auch ohne Select möglich?
Gruss Thomas
Anzeige