Makro beschleunigen
08.10.2003 16:57:24
Daniel
ich brauche mal eure Hilfe:
mit Makrorekorder habe diese Makro aufgezeichnet:
Sub DI_Löschen()
Sheets("Jan").Select
If MsgBox("Löschen? ", vbInformation + vbYesNo,) = 7 Then Exit Sub
Range("D7:AH7").Select
Selection.ClearContents
Range("D10:AH10").Select
Selection.ClearContents
Range("D13:AH13").Select
Selection.ClearContents
Range("D16:AH16").Select
Selection.ClearContents
Range("D19:AH19").Select
Selection.ClearContents
Range("D22:AH22").Select
Selection.ClearContents
Range("D25:AH25").Select
Selection.ClearContents
Range("D28:AH28").Select
Selection.ClearContents
Range("D31:AH31").Select
Selection.ClearContents
Range("D34:AH34").Select
Selection.ClearContents
Range("D37:AH37").Select
Selection.ClearContents
Range("D40:AH40").Select
Selection.ClearContents
Range("D43:AH43").Select
Selection.ClearContents
Range("D46:AH46").Select
Selection.ClearContents
Range("D49:AH49").Select
Selection.ClearContents
Range("D9:AH9").Select
Selection.ClearContents
Range("D12:AH12").Select
Selection.ClearContents
Range("D15:AH15").Select
Selection.ClearContents
Range("D18:AH18").Select
Selection.ClearContents
Range("D21:AH21").Select
Selection.ClearContents
Range("D24:AH24").Select
Selection.ClearContents
Range("D27:AH27").Select
Selection.ClearContents
Range("D30:AH30").Select
Selection.ClearContents
Range("D33:AH33").Select
Selection.ClearContents
Range("D36:AH36").Select
Selection.ClearContents
Range("D39:AH39").Select
Selection.ClearContents
Range("D42:AH42").Select
Selection.ClearContents
Range("D45:AH45").Select
Selection.ClearContents
Range("D48:AH48").Select
Selection.ClearContents
Range("D51:AH51").Select
Selection.ClearContents
Range("D7").Select
End Sub
Das Makro ist verdammt lamgsam!!!
Kann man das Makro beschleunigen?
Danke Daniel
Anzeige