|
Echt jetzt?
Workbooks(QName.Name) ????
Range(Cells(ZZeile, Spalte)) ????
If (Workbooks(QName.Name).Worksheets(QSheet.Name).Range(Cells(QZeile, Spalte)).Value = Workbooks(ZName).Worksheets(ZSheet).Range(Cells(ZZeile, Spalte)).Value) = False
statt einfach
If QZelle <> ZZelle ???
Ausserdem: Entweder
If x=y Then DasUndDas (OHNE END IF)
ODER
If x=y Then
DasUndDas
End If
Wahrscheinlich hast du auch noch irgendwo im Code ein paar "On Error Resume Next" hineingestreut, so dass fast alle deine Fehler einfach übersprungen werden, ohne dass du sie überhaupt mitkriegst.
Mal ganz abgesehen davon, dass man alles auch in nicht mal halb so vielen Zeilen hätte schreiben können. Und "Goto" benutzt man seit den 80ern fast gar nicht mehr.
|