Ohne Select
Heinz
Ich möchte im unteren Makro in den angeführten Zellen alles löschen,die Schriftfarbe wieder auf Standart usw..
Könnte man das Makro noch verschönern? (ohne Select)
Gruß
Heinz
Sub WerteLöschen()
Sheets("MA").Range("C3:AG3,C7:AE7,C11:AG11,C15:AF15,C19:AG19,C23:AF23,C27:AG27,C31:AG31,C35: _
AF35,C39:AG39,C47:AG47").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearComments
Selection.ClearContents
End Sub
Anzeige