|
If Range("CV" & QZeile).Value = Workbooks(ZName).Worksheets(ZSheet).Range("Y" & ZZeile).Value Then
Das ist völlig überflüssig:
Set QName = ActiveWorkbook 'Erstellt sich aus aktiver Quelldatei "Datenexport"
Set QSheet = ActiveSheet 'Erstellt sich aus aktiven Quellsheet "Meldung"
|