Werte einer Tabelle auf Null setzen
14.11.2018 12:28:30
Thomas
ich habe eine Excel-Tabelle in der ich alle Werte
per VBA-Makro auf null setzten möchte. Ich benutze
hierzu ein VBA-Makro. Dieses hat aber ein kleines
Manko, das falls statt eines Wertes der Zahl als
Formel eingegeben wird (z. B. =5+5) diese nicht
auf Null gesetzt wird.
Ich benutze zur Zeit folgendes Makro:
Sub SetToZero()
Range("D8:O73").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("D80:O139").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("D146:O224").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("D231:O324").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("A1").Select
MsgBox "FERTIG"
End Sub
https://www.herber.de/bbs/user/125382.xlsm
Vielleicht kann mir hier einen Tipp geben wie
ich das Makro umstricken muss.
Vielen Dank.
Gruß
Thomas