Laufzeitfehler 1004 - Frage an Ramses
31.10.2006 15:08:31
Düppi
Du hast mir gestern netterweise folgendes VBA geschickt. Allerdings bekomme ich auch nach ehrlich langer Suche in der Recherche den Laufzeitfehler 1004 Anwendungs- oder Objektdefinierter Fehler nicht weg. Muss wohl irgendwas mit Range und Cellst zu tun haben, aber nun bin ich ja VBA-Laie...!
Noch kurz zur Info: Das VBA steht in einem Modul, das gestartet wird, wenn in einer bestimmte Zeile im Blatt "Ausgaben" eine Veränderung geschieht.
(If Target.Column = 11 Then Call WirdWD). Dann wird in "Ausgaben" die Veränderung erspäht und im Blatt "Guetersloh" dargestellt.
Kannst Du nochmal nachschauen? Du hast ja Recht, meine 2500 Prüfungen aus dem alten VBA machten das Makro wirklich sehr langsam, sagt und grüßt Düppi!
Sub WirdWD()
Dim lGT As Integer
Dim tarC as Range
Worksheets("Guetersloh").Range("K5:K52").ClearContents
For lGT = 5 To 52
Set tarC = Worksheets("Ausgaben").Range("J1:J52").Find(Cells(i,2),LookIn:=xlValues, LookAt:=xlWhole)
If not tarc is nothing then
Sheets("Guetersloh").Range("K" & lGT).Value = Sheets("Ausgaben").Range("I" & lgt + 4)
Exit For
End If
Next lGT
End Sub