Makro arbeitet sehr langsam
30.10.2006 13:27:27
Düppi
ich starte in einem Makro ein weiteres Makro namens WirdWD, wenn im Arbeitsblatt "Ausgaben" in Spalte 11 etwas geändert wird.:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then Call WirdWD
Hier das Makro WirdWD, das nun wirklich nichts außergewöhnliches leistet. Dennoch wird der Call-Befehl in 4 bis 5 Sekunden abgearbeitet:
Public Sub WirdWD()
Dim lGT As Integer
Dim lWD As Integer
Worksheets("Guetersloh").Range("K5:K52").ClearContents
For lGT = 5 To 52
For lWD = 1 To 52
If Range("B" & lGT).Value = Range("J" & lWD).Value Then
Sheets("Guetersloh").Range("K" & lGT).Value = Sheets("Ausgaben").Range("I" & lWD)
Exit For
End If
Next lWD
Next lGT
End Sub
Wie bekomme ich das Makro schneller, fragt und grüßt Düppi