Makro beschleunigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Makro beschleunigen
von: Daniel
Geschrieben am: 08.10.2003 16:57:24

Hallo Freunde,
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
Bild


Betrifft: AW: Makro beschleunigen
von: Torsten
Geschrieben am: 08.10.2003 17:01:55

einfach nicht 'selecten'

Also zum Beispiel
Range("D7:AH7").ClearContents

Das geht dann recht schnell, da die Aktionen nicht sichtbar sind.


Bild


Betrifft: AW: Makro beschleunigen
von: Andi_H
Geschrieben am: 08.10.2003 17:02:15

Hi Daniel,

versuch das mal:

For i = 7 To 49 Step 3
Range("d" & i, "ah" & i).ClearContents
Range("d" & i + 2, "ah" & i + 2).ClearContents
Next
Range("d7").Select

Gruß

Andi


Bild


Betrifft: AW: Makro beschleunigen
von: ChrisL
Geschrieben am: 08.10.2003 17:03:39

Hi Daniel

Schau mal hier...
http://xlfaq.herber.de/xlbasics/main_sel.htm

Dim i As Byte

For i = 7 To 51 Step 3
Sheets("Jan").Range("D" & i & ":AH" & i).ClearContents
Next i

Gruss
Chris


Bild


Betrifft: AW: Makro beschleunigen
von: axel.meyer
Geschrieben am: 08.10.2003 17:04:17

hi daniel,

versuche es mal so:

range("d7:ah7").value = ""

jedes ".select" macht ein makro langsam. das ist der fehler.

gruß, axel


Bild


Betrifft: Ich danke euch alle o.T.
von: Daniel
Geschrieben am: 08.10.2003 17:40:10

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " letze Stellen ignorieren"