Hallo und guten Abend
1.Frage:
Wie kann ich folgenden Code kürzer schreiben. In jeder angegebenen Zelle soll eine Null eingetragen werden.
'hier fängt das Löschen der Werte an

Range("E48").Select
ActiveCell.FormulaR1C1 = "0"
Range("E51").Select
ActiveCell.FormulaR1C1 = "0"
Range("H49").Select
ActiveCell.FormulaR1C1 = "0"
Range("H51").Select
ActiveCell.FormulaR1C1 = "0"
Range("E59").Select
ActiveCell.FormulaR1C1 = "0"
Range("E62").Select
ActiveCell.FormulaR1C1 = "0"
Range("H60").Select
ActiveCell.FormulaR1C1 = "0"
Range("H62").Select
ActiveCell.FormulaR1C1 = "0"
Range("E70").Select
ActiveCell.FormulaR1C1 = "0"
Range("E73").Select
ActiveCell.FormulaR1C1 = "0"
Range("E78").Select
ActiveCell.FormulaR1C1 = "0"
Range("E81").Select
ActiveCell.FormulaR1C1 = "0"
Range("H79").Select
ActiveCell.FormulaR1C1 = "0"
Range("H81").Select
ActiveCell.FormulaR1C1 = "0"
Range("J81").Select
ActiveCell.FormulaR1C1 = "0"
Range("J80").Select
ActiveCell.FormulaR1C1 = "0"
Range("J77").Select
ActiveCell.FormulaR1C1 = "0"
Range("J76").Select
ActiveCell.FormulaR1C1 = "0"
Range("J73").Select
ActiveCell.FormulaR1C1 = "0"
Range("J72").Select
ActiveCell.FormulaR1C1 = "0"
Range("J69").Select
ActiveCell.FormulaR1C1 = "0"
Range("J68").Select
ActiveCell.FormulaR1C1 = "0"
Range("J65").Select
ActiveCell.FormulaR1C1 = "0"
Range("J64").Select
ActiveCell.FormulaR1C1 = "0"
Range("J61").Select
ActiveCell.FormulaR1C1 = "0"
Range("J60").Select
ActiveCell.FormulaR1C1 = "0"
Range("J54").Select
ActiveCell.FormulaR1C1 = "0"
Range("J53").Select
ActiveCell.FormulaR1C1 = "0"
Range("J50").Select
ActiveCell.FormulaR1C1 = "0"
Range("J49").Select
ActiveCell.FormulaR1C1 = "0"
Range("K45").Select
2.Frage:
Wie kann ich im Tabellenblatt nacheinander einzelne Zellen makieren für den Makrorekorder .Habe irgendwo mal gelesen das es geht?
Für eine Antwort der Wissenden wäre ich dankbar
Tschüs Hans-Werner