Hallo ihr!
Kann mir jemand hierbei helfen?! Ich weiß nicht, wo mein Fehler liegt.
For j = 1 To 13
For k = z + 7 To 506
For h = 6 To 506
If Workbooks("sb2.xls").Worksheets("Sheet1").Cells(h, j) <> Workbooks("fehl.xls").Worksheets("Sheet1").Cells(k, j) Then
Workbooks("sb2.xls").Worksheets("Sheet1").Cells(h, j).Copy Destination:=Workbooks("fehl.xls").Worksheets("Sheet1").Cells(k, j)
End If
Next h
Next k
Next j
MfG Christinchen