Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.12.2024 13:15:39
02.12.2024 12:41:41
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Makro beschleunigen

Makro beschleunigen
08.10.2003 16:57:24
Daniel
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro beschleunigen
08.10.2003 17:01:55
Torsten
einfach nicht 'selecten'

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

Das geht dann recht schnell, da die Aktionen nicht sichtbar sind.
AW: Makro beschleunigen
08.10.2003 17:02:15
Andi_H
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
AW: Makro beschleunigen
08.10.2003 17:03:39
ChrisL
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
Anzeige
AW: Makro beschleunigen
08.10.2003 17:04:17
axel.meyer
hi daniel,

versuche es mal so:

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

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

gruß, axel
Ich danke euch alle o.T.
08.10.2003 17:40:10
Daniel
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige