Dauer eines kleinen Makros: mal kurz, mal lang??
14.10.2003 08:01:54
Franz W.
Guten Morgen Fachleute,
ich hab ein kleines Makro, das innerhalb eines begrenzten Bereiches Nummern sucht und diese dann mit einem Wert 2 Zellen links davon in ein anderes Blatt kopiert. Am Ende wird der neu kopierte Bereich noch mit Namen belegt. Aktuell geht es dabei lediglich um 18 Einträge, die gesucht und übertragen werden müssen, hier der Code:
Sub NurStromKd()
Dim NrZel As Range, KdBereich As Range
Set KdBereich = Worksheets("Ablesungen").Range(Cells(9, 3), Cells(104, 3))
With Worksheets("aktive_kunden")
.Columns(1).ClearContents
.Range("A3") = "Objekt"
.Columns(2).ClearContents
.Range("B3") = "Nr."
loLetzte = 4
End With
For Each NrZel In KdBereich
If IsNumeric(NrZel) And Not NrZel = "" And NrZel <= 999 _
And Not NrZel = 11 And Not NrZel = 12 _
And Not NrZel = 13 And Not NrZel = 14 Then
NrZel.Copy Destination:=Worksheets("aktive_kunden").Cells(loLetzte, 2)
NrZel.Offset(0, -2).Copy Destination:=Worksheets("aktive_kunden").Cells(loLetzte, 1)
loLetzte = loLetzte + 1
End If
Next
ActiveWorkbook.Names("NurAktive").Delete
ActiveWorkbook.Names.Add Name:="NurAktive", RefersToR1C1:= _
"=aktive_kunden!R4C1:R" & loLetzte - 1 & "C5"
End Sub
Normalerweise dauert das Makro ca 1/2 Sekunde und so war's auch gestern noch. Ich habe den Code seither nicht verändert. Jetzt dauerts aber plötzlich so 12 - 15 Sekunden, also ein Vielfaches. Woran kann das denn liegen? Könnt Ihr mir da bitte helfen?
Für Eure Hilfe schon mal vielen Dank im Voraus
Grüße
Franz